home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 2 / Gekikoh Dennoh Club Vol. 2 (Japan).7z / Gekikoh Dennoh Club Vol. 2 (Japan) (Track 01).bin / games / mashou / mashou.riq < prev    next >
Text File  |  1997-10-13  |  223KB  |  9,521 lines
  1. //===================================================================
  2. //            魔性の城　～フレデリック城～
  3. //            MASHOU.RIQ
  4. //===================================================================
  5. //                        by ＳＪＯＭ
  6. //
  7. //
  8.  
  9. &partyspeed 2
  10. %mspeed = 5
  11. %gold = 0
  12. &partyitemset 0
  13.  
  14. %bcirclesize = 128
  15. %bcirclecount = -1
  16. &partyset 0
  17.  
  18. &patternpal monster\monster.PAL            //0-7:MON2.PAL by 鈴木　浩　さん
  19.                         //8-e:HMON_01.PAL by ポチ丸　さん
  20. &sppmappalb 8
  21. &sppsp  chara\charact.SPP            //dead body by SJOM(selfmade?)......本当は、鈴木　浩さんのキャラ。
  22.                                          .......勝手に殺してすみません。
  23.                         //character   by 鈴木　浩　さん
  24.                         //tresure box by 片桐　健善　さん
  25.                         //grave       by 片桐　健善　さん
  26. &spppal chara\charact.PAL
  27. &mappal map\dark.PAL
  28. &mapsp  map\castle.SPP                // 一部　by 鈴木　浩　さん
  29.  
  30.                                         
  31. //            event and treasure flag etc.
  32.                                         
  33.     //event flag
  34. &def event
  35. &def event0
  36. &def event1        //bit 0,1,2,3,4,5,6,7,8,9     その他
  37. &def eventT        //bit 0,1,2,3,4,5,(6,7)        特殊な宝箱用
  38. &def ending        //ending用フラグ
  39.     //treasure flag
  40. &def Tsub
  41. &def Tno
  42. &def Tbit
  43. &def T城壁前        //bit 0,1,2,3
  44. &def T城１Ｆ        //bit 0,1,2,3,4,5
  45. &def T城２Ｆ        //bit 0,(1,2,3,4,5,6),7
  46. &def T城３Ｆ        //bit 0,1
  47. &def T城４Ｆ        //bit 0,1,2
  48. &def T城６Ｆ        //bit 0
  49. &def T城７Ｆ        //bit 0,1,2,3,4,5,6,7
  50. &def T城１０Ｆ        //bit 0
  51. &def T城１３Ｆ        //bit 0,1
  52. &def Tシンシア墓地    //bit 0
  53. &def T城Ｂ１        //bit 0,1,2,3,4,5
  54. &def T城Ｂ２        //bit 0,1,2,3,4,5,6,7,8,9
  55. &def T城Ｂ３        //bit 0,1,2,3,4,(5,6,7,8)
  56. &def T城Ｂ４        //bit 0,1,2,3,4,(5)
  57. &def T城Ｂ６        //bit 0,1
  58. &def T地下空洞        //bit 0,(1),2,3,4,5,6,7
  59. &def extraT        //特殊な宝箱用
  60. &def extrT0        //　　〃
  61. &def T7sub        //bit 0,1
  62.  
  63.  
  64.     //door flag
  65. &def 鍵flag
  66. //    bit0:星形の鍵    bit1:月形の鍵    bit2:太陽の鍵    bit3:盾の鍵
  67. //    bit4:鎧の鍵    bit5:兜の鍵    bit6:剣の鍵    bit7:牢の鍵
  68. //    bit8:魔導士の鍵    bit9:その他Ｂ３    bit10:その他Ｂ４
  69. //    bit11:牢の鍵の掛かっている場所
  70. &def 牢屋flag        //bit 0,1,2,3,4,5
  71.  
  72.     //感情度    もろ、ＦＦセブンの影響
  73. &def セシル=100
  74. &def ミーナ=100
  75.  
  76.     //モンスター遭遇等
  77. &def encounter
  78. &def noencounter=35
  79. &def mons1
  80. &def hm1
  81. &def mons2
  82. &def hm2
  83. &def mons3
  84. &def hm3
  85. &def mons4
  86. &def enc_pat
  87. &def encsub
  88.  
  89.     //その他
  90. &def mina_say        //bit 0,1,2
  91. &def cecil_say        //bit 0
  92. &def ミーナ貯金
  93. &def door_sound
  94. &def w_speed=20
  95. &def MANsub
  96. &def Xsub
  97. &def Ysub
  98. &def B4light=0
  99. &def g_count=1
  100.  
  101.  
  102. //ＳＥ用音色データ読み込み            //これも、「幻獣」から拝借しました。
  103.     &bgm 26                    //音色データ読み込み GEN.ZMD
  104. //    &bgm 25                    //音色データ読み込み SND.ZMD
  105.  
  106.  
  107.                                         
  108. [START]
  109.                                         
  110.     &map map\black.MAP
  111.     &mappal map\dark.PAL
  112.     &partyset 1        //透明君(ほんとは、真っ黒君、「まっくろくろすけ」)
  113.     %partypoint = { 10,10,%down }
  114.     &on
  115.     &bgm 0            //restartした時用
  116.  
  117.  
  118.     !o(0)　　:
  119.     !　　　　　　　　　　魔性の城:
  120.     !　　　　　　～フレデリック城～pc
  121.     !o(1)ゲームを始めます。pc
  122.     &load
  123.  
  124.  
  125.  
  126.     &mappal map\light.PAL
  127.     &sppsp  chara\openchr.SPP
  128.  
  129.         //＊＊オープニングスタート＊＊
  130.  
  131.     &bgm 7
  132. //    !      ライン文字比較用          :全角１６文字
  133.     //ほんとは、紙芝居みたいに、絵が移り変わる様にしたかったのですが、あまりうまく絵が、
  134.     //描けないので、あきらめました。とほほほ(;_;)。ということで、次回作で、うまくいけば、
  135.     //実行してみたいです。
  136.     !メーレセレス大陸にシンシアという:
  137.     !　　　　　　　小国があった。p:
  138.     !小さいながらもこの国から湧き出す:
  139.     !　不思議な金色の水により繁栄を
  140.     !　　　　　　　極めていた。p:
  141.     !ところが、ある日を境に、次々と、:
  142.     !若い娘達が行方不明となる事件が、:
  143.     !　　　　　　　　　続いた。p:
  144.     !　事態を重く見たシンシアの王は、:
  145.     !　　　　　　各村々に、兵を送り、:
  146.     !　　　　　　　娘達の保護と、:
  147.     !　　　　　事件の究明に当たらせた。p:
  148.     !　ある村で、兵に守られた娘達が、:
  149.     !　　　　　　　　　さらわれた。p:
  150.     !　　　この時の生き残りの兵から、:
  151.     !　　　「あっ、あれは紛れもなく:
  152.     !　　　　　フレデリック城城主p:
  153.     !サイアン・ジョン・フレデリック:
  154.     !　　　　　　　　だった！」p:
  155.     !　　　と聞き、すぐさま軍隊を、:
  156.     !　フレデリック城に向かわせた。p:
  157.     !　　　　　しかし、ひとりとして:
  158.     !　　　　　戻ってくる者はなかった。p:
  159.     !王は、娘たちを隣国カスタレイに、:
  160.     !　　　避難させることを決めた。p:
  161.     !　　　　　　　　　その中には、:
  162.     !　　　若き王女も含まれていた。:
  163.     !　　　その出発の日・・・・・。p
  164.     &bgm -1
  165.     w_speed=20
  166.     &jsr FADEOUT
  167.     !c
  168.     &goto OPENING1
  169.  
  170.  
  171. //                                
  172. [OPENING1]            //シンシア城門前
  173. //                                
  174.     &map map\opening.map
  175.     &partyset 6,7,8,9                //兵と娘達
  176.     %partypoint = { @0,-%down }
  177.     %mandef(1) = { 12,0,$64,%down,-1 }        //王妃
  178.     %mandef(2) = { 8,0,$20,%right,0 }        //主人公
  179.     %mandef(3) = { 11,0,$e0,%right,0 }        //ミーナの父
  180.     %mandef(4) = { 9,0,$80,%right,-1 }        //兵
  181.     %mandef(5) = { 9,0,$80,%right,-1 }
  182.     %mandef(6) = { 9,0,$80,%right,-1 }
  183.     %mandef(7) = { 9,0,$80,%right,-1 }
  184.     %mandef(8) = { 9,0,$80,%left,-1 }
  185.     %mandef(9) = { 9,0,$80,%left,-1 }
  186.     %mandef(10) = { 9,0,$80,%left,-1 }
  187.     %mandef(11) = { 9,0,$80,%left,-1 }
  188.     %mandef(12) = { 8,0,$a0,%left,0 }        //町の住民
  189.     %mandef(13) = { 9,0,$20,%left,-1 }
  190.     %mandef(14) = { 8,0,$c0,%left,0 }
  191.     %mandef(15) = { 11,0,$e0,%right,-1 }
  192.     %mandef(16) = { 8,0,$a0,%left,0 }
  193.     %mandef(17) = { 8,0,$c0,%left,-1 }
  194.     %mandef(18) = { 11,0,$20,%right,-1 }
  195.     %mandef(19) = { 8,0,$44,%down,0 }        //王
  196.     %manpoint(19) = { 127,127 }
  197.     &on
  198.     &bgm 8
  199.     &partyspeed 1
  200.     &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  201.     %manpoint(19) = { 14,16 }
  202.     &on
  203.     &manmove 19, 2,2,2,2,2,2,2,2
  204.     !o(1)シンシア王;「よいか、何があっても、;無事カスタレイに、;送るのだぞ。」pc
  205.     %mandef(19) = { 8,0,$44,%down,-1 }
  206.     &on
  207.     !兵達;「はっ！」pc
  208.     !護衛隊長;「はっ、必ずや。」pc
  209.     &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  210.     &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  211.     &manmove 2, 6,6
  212.     !o(1)青年;「いったい、どうしたんだ？」pc
  213.     &manmove 3, -4
  214.     !o(1)村人;「ん、知らないのか。p;ほれ、フレデリック城の件で、;
  215.     !村の娘達を、避難させることに;なったのを。」pc
  216.     !o(1)青年;「フレデリック城？;pそういうことか。;
  217.     !ところで、各地から、;ハンターを募っていると;聞いたんだが。」pc
  218.     !o(1)村人;「そうだが？w;もしかして、;あんたがそうなのか！」pc
  219.     !o(1)青年;「ああ、そうだ。」pc
  220.     !o(1)村人;「ふむ、若いのにな。;ところで君の名は？」pc
  221.     &bgm 6
  222.     &inputpartyname 0
  223.     &bgm 8
  224.     !o(1)|(0);「俺の名は、;|(0)・カサンドラ。」pc
  225.     !o(1)村人;「なにっ！p;そ、それじゃ、あんたが、;あのデビルバスターか！p;
  226.     !それじゃ、この事件は、;すぐに片付くな。;頑張ってくれよ。」pc
  227.     !o(1)|(0);「ああ。」pc
  228.     &bgm -1
  229.     &jsr FADEOUT
  230.     &goto2 OPENING2,@2,-%down
  231.  
  232. //                                
  233. [OPENING2]            //カスタレイへの道
  234. //                                
  235.     %mandef(4) = { 9,0,$80,%down,-1 }        //兵
  236.     %manpoint(4) = { 47,14 }
  237.     %mandef(5) = { 9,0,$80,%down,-1 }
  238.     %manpoint(5) = { 50,14 }
  239.     %mandef(6) = { 9,0,$80,%down,-1 }
  240.     %manpoint(6) = { 51,8 }
  241.     %mandef(7) = { 9,0,$80,%down,-1 }
  242.     %manpoint(7) = { 51,3 }
  243.     %mandef(8) = { 9,0,$80,%down,-1 }
  244.     %manpoint(8) = { 44,15 }
  245.     %mandef(9) = { 9,0,$80,%down,-1 }
  246.     %manpoint(9) = { 44,9 }
  247.     %mandef(10) = { 9,0,$80,%down,-1 }
  248.     %manpoint(10) = { 44,4 }
  249. //    %mandef(20) = { 9,0,$80,%down,0 }        //兵
  250. //    %mandef(21) = { 9,0,$80,%down,0 }
  251. //    %mandef(22) = { 9,0,$80,%down,0 }
  252. //    %mandef(23) = { 9,0,$80,%down,0 }
  253. //    %mandef(24) = { 9,0,$80,%down,0 }
  254. //    %mandef(25) = { 9,0,$80,%down,0 }
  255. //    %mandef(26) = { 9,0,$80,%down,0 }
  256.     %mandef(27) = { 8,0,$00,%up,0 }            //魔物出現
  257.     %mandef(28) = { 8,0,$00,%up,0 }
  258.     %mandef(29) = { 8,0,$00,%up,0 }
  259.     &on
  260.     &bgm 9
  261.     &partymove 2,2,2,2,2,2,2,2,2,2
  262.     !護衛隊長;「もう少しでカスタレイだ！;いくぞ！」pc
  263.     !兵達;「はっ！」pc
  264.     !声;「フハハハハハ。;なかなかいい娘達だ。」pc
  265.     !護衛隊長;「誰だ！p;まっまさか。」pc
  266.     !声;「ほう、wたったこれだけの兵で、;防げるとでも思ったか。」pc
  267.     &on
  268.     &bgm 10
  269.     &manmove 27, 8,8,8,8,8,8,8,8,8,8,8,8,8
  270.     &manmove 28, 8,8,8,8,8,8,8,8,8,8,8,8,8
  271.     &manmove 29, 8,8,8,8,8,8,8,8,8,8,8,8,8
  272.     !護衛隊長;「かかれぃ！」pc
  273.     &on
  274.     &partyset 2,3,4,5
  275. &label
  276.     &battle $1000,11,ガーゴイル,3
  277.     &if (%exitcode==0) {
  278.         !兵達;「な、なに、w;こいつらは、不死身か！」pc
  279.         &jmp @b
  280.     }
  281.     &partyset 6,7,8,9
  282.     &on
  283.     !o(0)c
  284.     !兵;「うゎ～！」pc
  285.     %manpoint(4) = { 127,127 }
  286.     %manpoint(5) = { 127,127 }
  287.     %manpoint(8) = { 127,127 }
  288.     %manpoint(9) = { 127,127 }
  289.     &on
  290.     !声;「フハハハハハ、;次は誰が相手をするのかな。」pc
  291.     !護衛隊長;「くっ！;何としても守りぬくのだ！」pc
  292.     &partyset 6,2,3,4
  293.     &complete
  294. &label
  295.     &battle $1000,11,ガーゴイル,3
  296.     &if (%exitcode==0) {
  297.         !護衛隊長;「きりがない！」pc
  298.         &jmp @b
  299.     }
  300.     %manpoint(6) = { 127,127 }
  301.     %manpoint(7) = { 127,127 }
  302.     %manpoint(10) = { 127,127 }
  303.     &partyset 7,8,9
  304.     &on
  305.     !o(0)c
  306.     !「きゃぁ～～～～！！」
  307.     &exec bin\white.x
  308.     !c
  309.     &bgm -1
  310.     &jsr FADEOUT
  311.     &spppal chara\charact.PAL
  312.     &mappal map\light.PAL
  313.     &partyset 0
  314.     &goto2 OPENING3,@3,%up
  315.  
  316.  
  317.  
  318.                                     
  319. [OPENING3]            //シンシア城　王の謁見の間
  320.                                     
  321.     &ldef I
  322.     %mandef(4) = { 9,0,$80,%right,-1 }        //兵
  323.     %manpoint(4) = { 38,54 }
  324.     %mandef(5) = { 9,0,$80,%right,-1 }
  325.     %manpoint(5) = { 38,58 }
  326.     %mandef(8) = { 9,0,$80,%right,-1 }
  327.     %manpoint(8) = { 38,62 }
  328.     %mandef(9) = { 9,0,$80,%left,-1 }
  329.     %manpoint(9) = { 56,54 }
  330.     %mandef(6) = { 9,0,$80,%left,-1 }
  331.     %manpoint(6) = { 56,58 }
  332.     %mandef(7) = { 9,0,$80,%left,-1 }
  333.     %manpoint(7) = { 56,62 }
  334.     %mandef(10) = { 9,0,$80,%up,0 }            //報告兵
  335.     %mandef(12) = { 8,0,$68,%down,-1 }        //大臣
  336.     %manpoint(12) = { 51,47 }
  337.     %mandef(13) = { 9,0,$6c,%down,-1 }        //側近
  338.     %manpoint(13) = { 43,47 }
  339.     %mandef(14) = { 13,0,$a0,%up,-1 }        //ハン
  340.     %manpoint(14) = { 44,58 }
  341.     %mandef(15) = { 14,0,$c0,%up,-1 }        //ジェラルド
  342.     %manpoint(15) = { 47,58 }
  343.     %mandef(19) = { 8,0,$44,%down,-1 }        //王
  344.     %manpoint(19) = { 47,46 }
  345.     &on
  346.     &bgm 12
  347.     !o(1)大臣;「王様、この者達が、;集まったハンター達です。」pc
  348.     !o(1)シンシア王;「おおっ、そうか。p;そなた達の名は？」pc
  349.     &manmove 14, 8
  350.     !青年;「私の名は、;ハン・ジャック・ベルリン。p;
  351.     !私が来た今、この事件は、;解決したも同然。;
  352.     !大船に乗った気で;いてください。」pc
  353.     !o(1)シンシア王;「頼むぞ。」pc
  354.     !ハン;「はい、王様。;私にお任せを。」pc
  355.     &manmove 15, 8
  356.     !老剣士;「わしの名は、;|(10)・オイヘル。p;
  357.     !まだまだ若いのには;負けてれおれんわい。」pc
  358.     !o(1)大臣;「おおっ、お主が、;あの名剣士オイヘル！」pc
  359.     !o(1)シンシア王;「うむ、これは頼もしい。;よろしく頼んだぞ。」pc
  360.     !|(10);「わしが、;すぐに片付けて見せよう。」pc
  361.     !o(1)大臣;「ところで、お主は、」pc
  362.     !|(0);「ん、俺、w俺か。その前に、報酬は大丈夫だろうな。」pc
  363.     !o(1)大臣;「これっ！;こんな所で、そんな話を！」pc
  364.     !o(1)シンシア王;「まぁよい。心配はいらん。;多額の報酬を用意している。」pc
  365.     !|(0);「そうか、ならいい。俺の名は、;|(0)・カサンドラだ。」pc
  366.     !o(1)大臣;「な、なんと、;あのデビルバスターの！」pc
  367.     !|(10);「この若いのが、;デビルバスターじゃと！」pc
  368.     !ハン;「ふっ。」pc
  369.     !o(1)シンシア王;「おおぅ、そなたが。p;
  370.     !話はこのシンシアにも;届いているぞ。;そなたがいるのなら、;大丈夫だな。p;
  371.     !よろしく頼むぞ。」pc
  372.     !o(1)大臣;「いまの状況は、;知っていると思うが、p;
  373.     !フレデリック城へ、魔物と城主;サイアン・ジョン・フレデリック;
  374.     !を倒しにいってもらいたい。p;今夜は、;ゆっくり休むがよい。p;
  375.     !城へは、;明日向かってもらう。」pc
  376.     !兵;「た、たいへんです！」pc
  377.     &bgm 10
  378.     %manpoint(10) = { 52,62 }
  379.     &on
  380.     &manmove 10, 8,8,8,8,8,8,8,8
  381.     !o(1)大臣;「何事だ！」pc
  382.     !兵;「たっ、たった今、;カスタレイに向かっていた一行がp;
  383.     !サイアンの魔物に襲われ、;部隊は隊長を除いて、;全滅しました。p;
  384.     !隊長は、重傷です。;村の娘たちはさらわれ・・・。p;
  385.     !姫も・・・・。」pc
  386.     !o(1)シンシア王;「なっ、w;なんということに・・・・・。」pc
  387.     !o(1)大臣;「お主達、すまないが、;今すぐ、出発してもらいたい。p;
  388.     !そして、姫を、;村の娘達を助けて欲しい。」pc
  389.     !ハン、|(10);「はっ！」pc
  390.     %mandef(14) = { 13,0,$a0,%down,0 }        //ハン
  391.     %mandef(15) = { 14,0,$c0,%down,0 }        //ジェラルド
  392.     &on
  393.     I=9
  394. &label
  395.     &manmove 14, 2
  396.     &manmove 15, 2
  397.     I--
  398.     &if (I>0) {
  399.         &jmp @b
  400.     }
  401.     !|(0);「その分の報酬は;あるんだろうな。」pc
  402.     !o(1)大臣;「くっ。ww;も、wもちろんだ。;必ず無事助け出してくれ！」pc
  403.     &bgm -1
  404.     &jsr FADEOUT
  405.     &goto2 OPENING4,@0,%down
  406.  
  407.  
  408.  
  409.                                     
  410. [OPENING4]            //シンシア城門前
  411.                                     
  412.     %mandef(3) = { 11,0,$e0,%right,0 }        //ミーナの父
  413.     &on
  414.     &bgm 8
  415.     &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  416.     !村人;「ちょっと待ってください。」pc
  417.     &manmove 3, 6,6,6,6,6,6
  418.     &partymove -4
  419.     !|(0);「ん、さっきの人か、;どうしたんだ？」pc
  420.     !村人;「お願いします、;私の娘も姫と一緒に;さらわれてしまって、p;
  421.     !お願いします、;助けてください。p;娘の名は、pc
  422.     &bgm 6
  423.     &inputpartyname 8
  424.     &bgm 8
  425.     !　　名は、|(8)、w;|(8)・アレンドラです。p;
  426.     !本当にお願いします。;私のひとり娘なんです。」pc
  427.     !|(0);「ああ、分かっている。」pc
  428.     !|(8)パパ;「これを、;これを持っていってください。p;
  429.     !このシンシアの瓶があれば、;この国に湧く黄金の水を;飲むことができます。p;
  430.     !必ずや、;娘を助けてください。」pc
  431.     !|(0);「ああ、大丈夫だ。;これは、もらっていくよ。」pc
  432.     !　;j(1)　シンシアの瓶j(0)を手に入れた。pc
  433.     &partyitemin (シンシアの瓶)
  434.     &bgm -1
  435.     &jsr move_fadeout
  436.     &partymove 2,2,2,2,2,2
  437.     &goto OPENING5
  438.  
  439.  
  440.                                     
  441. [OPENING5]            //フレデリック城壁前にて
  442.                                     
  443.     &sppsp  chara\openchr.SPP
  444.     &mappal map\dark.PAL
  445.     &map map\portal.MAP        //城壁前.MAP
  446.     %mandef(1) = { 13,0,$a0,%up,0 }        //ハン
  447.     %mandef(2) = { 14,0,$c0,%up,0 }        //ジェラルド
  448.     &partyset 0
  449.     %partypoint = { @0,%up }
  450.     &on
  451.     &if (ending!=0) {
  452.         &manmove 1, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  453.         &manmove 1, 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  454.         &manmove 2, 8,8,8,-2
  455.         &exec bin\sepia.x
  456.         !　:　:　:　:音楽　　　　　　　　　　:w
  457.         !　　　　wＭａｒｋ４４．wさん　　　　:
  458.         !　　　　w水野　裕之wさん　　　　　　:
  459.         !　　　　w中原　惺wさん　　　　　　　
  460.         &wait 300
  461.         w_speed=10
  462.         &jsr FADEOUT
  463.         !c
  464.         &wait 300
  465.         &sppsp  chara\charact.SPP
  466.         &spppal map\darkall.PAL
  467.         ending++        //ending=2
  468.         &goto2 城６Ｆ１,@10,%left
  469.     }
  470.     &partyspeed 2
  471.     &wait 100
  472.     &jsr 雷
  473.     &wait 250
  474.     &jsr 雷
  475.     &wait 50
  476.     &jsr 雷
  477.     &wait 150
  478.     &jsr 雷
  479.     !ハン;「堂々と入口を開けているとは、;なめられたもんだな。;
  480.     !私は、先に行くぞ。」pc
  481.     &manmove 1, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  482.     &manmove 1, 8,8,8,8,8,8,8,8,8,8,8,8
  483.     %manpoint(1) = { 511,511 }
  484.     &on
  485.     &jsr 雷
  486.     !|(10);「デビルバスターか。;お手並みを、;拝見させてもらおうかの。」pc
  487.     &manmove 2, 8,8,8,-2
  488.     !|(10);「おっ、そうじゃ。お主は、;
  489.     !この国の黄金の水について;知っておるのか。」pc
  490.     &jsr 雷
  491.     !|(0);「ん？」
  492.     %selectlist = { もちろんさ。,いいや、知らない。 }
  493.     &switch %select {
  494.     &case 0:
  495.         !c|(10);「そうか、;それならいいんじゃ。」pc
  496.         &break
  497.     &case 1:
  498.         !c|(10);「知らんのか、なら、;わしが教えてやるわい！」pc
  499.         !|(0);「ああ、頼む。」pc
  500.     &default:
  501.         !c|(10);「よく聴くんじゃぞ。」pc
  502.         !|(0);「ああ、大丈夫だ。;早く教えてくれ。」pc
  503.         !|(10);「いいか、この国は、;あちこちから、p;
  504.         !黄金色に輝く不思議な水が;湧きでているんじゃ。p;
  505.     &jsr 雷
  506.         !その水は、普通の容器じゃと、;汲み上げた途端、;
  507.         !その輝きを失うんじゃ。p;
  508.         !じゃが、なぜかは、;分からんのじゃが、;この国で良く採れる、p;
  509.         !紫色のシンシア水晶で作られた;容器なら大丈夫なんじゃ。p;
  510.         !それに、その水を飲むと、;怪我が直り、;頭がすっきりするんじゃ。p;
  511.         !それから、w・w・w・w;なんじゃったかの～p;
  512.         !まぁ、こんなところかの。」pc
  513.         !|(0);「それから、なんなんだ。」pc
  514.         !|(10);「まぁ、飲めばわかるわい。」pc
  515.         !|(0);「ま、それもそうだな。」pc
  516.     }
  517.     !|(10);「ここにも;湧いてるかも知れんから、;探してみるんじゃな。」pc
  518.     !|(0);「そうするよ。」pc
  519.     !|(10);「さ、行こうかの。」pc
  520.     &jsr 雷
  521.     &manmove 2, 8,8,8,8,8,8,8,8,8,8,8,8,8
  522.     &manmove 2, 8,8,8,8,8,8,8,8,8,8,8,8
  523.     %manpoint(2) = { 511,511 }
  524.     &on
  525.     &jsr 雷
  526.     &sppsp  chara\charact.SPP
  527.     &goto2 城壁前,@0,%up
  528.  
  529.  
  530.                                     
  531. [城壁前]            //フレデリック城　城壁前
  532.                                     
  533.     &map map\portal.MAP        //城壁前.MAP
  534.     &if (event==0) {
  535.         &mappal map\dark.PAL
  536.     } &else {
  537.         &mappal map\light.PAL
  538.         mons1=グリンスライム        //monster set
  539.         hm1=4
  540.         mons2=ブルースライム
  541.         hm2=3
  542.         mons3=レッドスライム
  543.         hm3=1
  544.         enc_pat=3
  545.         encounter=32        // 1/32
  546.         &jsr 黒十字
  547.         Xsub=12
  548.         &jsr mons_reset
  549.         &if (%nowbgm!=7) {
  550.             &bgm 7
  551.         }
  552.     }
  553.     &if (event==13) {
  554.         %mandef(1)= { 8, 0,$40,%up,-1 }        //セシル
  555.         %manpoint(1)={ 511,511 }
  556.         %mandef(2)= { 11,0,$60,%up,-1 }        //ミーナ
  557.         %manpoint(2)={ 511,511 }
  558.     }
  559.     Tsub=T城壁前
  560.     &jsr DOORCLOSE
  561.     &on
  562.     !o(1);［フレデリック城壁前］pc
  563.     &if (door_sound==3) {
  564.         &partymove 2,2,2,2,2,2
  565.     }
  566.     door_sound=0
  567.  
  568.     &switch event { 
  569.     &default:
  570.         &break
  571.     &case 10:
  572.         &if (event0!=0) {
  573.             &&
  574.         }
  575.         &partymove 2,2,2,2,-8
  576.         !|(0);「出られたな。」pc
  577.         !|(7);「ええ。」pc
  578.         !|(0);「俺は、まだここに用がある！p;さて、|(7)。p;
  579.         !君はシンシア城に;戻った方がいい。」pc
  580.         !o(0)|(0);「ここから
  581.         %selectlist = { 俺が送って行こう,一人で行けるだろ }
  582.         &switch %select {
  583.         &case 0:
  584.             !c|(7);「ううん、わたし、残ります。p;他の人が心配だし、;
  585.             !地下牢にいたから、p;少しは道案内になると;思いますし。」pc
  586.             !|(0);「しかし、w;シンシア王が・・・・。」pc
  587.             !|(7);「ね、お願い。;わたしは、大丈夫ですから。」pc
  588.             セシル+=50
  589.             &break
  590.         &case 1:
  591.             !c|(7);「えっ、ごめんなさい、;わたしは足手纏いですよね。」pc
  592.             !|(0);「いや、そんなことはないが、;君を危険な目に;
  593.             !合わせるわけにはいかない！」pc
  594.             !|(7);「わたしなら大丈夫です、;わたしだって、;
  595.             !他の人が心配ですし・・・」pc
  596.             セシル-=10
  597.             &break
  598.         &default:
  599.             !c|(0);「ん～。君、どうする。」pc
  600.             !|(7);「わたし、残ります！;他の人が心配ですし。」pc
  601.             セシル-=30
  602.         }
  603.         !|(0);「仕方ないな。」pc
  604.         !|(7);「ごめんなさい。」pc
  605.         !|(0);「いや、w;あやまることはないさ。」pc
  606.         event0++
  607.         &break
  608.     &case 12:
  609.         &if ((mina_say and 2)==0) {
  610.             &partymove 2,2,2,2,2,2,2,-8
  611.             !|(0);「|(8)、
  612.             %selectlist = { 君は、帰った方がいい,これから、どうするんだ }
  613.             &switch %select {
  614.             &case 0:
  615.                 %selectlist = { 俺達が送っていこうか,一人で帰れるだろ }
  616.                 &switch %select {
  617.                 &case 0:
  618.                     !c|(8);「ふ～ん、おれたちね～。」pc
  619.                     !|(7);「えっ！」pc
  620.                     !|(0);「ん、なんだ！;だから、送ろうかって。」pc
  621.                     !|(8);「へ～、w;向きになるところが怪しいね。」pc
  622.                     !|(0);「何が怪しいんだ。;俺は、ただ君がだな、」pc
  623.                     !|(8);「ふふっ、p;あたしは、帰らないわよ。」pc
  624.                     !|(0);「なにっ、w;しかし、君の親父が、」pc
  625.                     !|(8);「心配いらないよ、;それより早く行こ！」pc
  626.                     !|(7);「|(8)さん、本当にいいの。」pc
  627.                     !|(8);「もちろんよ！;だって・・・。」pc
  628.                     !|(0);「だって、どうしたんだ。」pc
  629.                     !|(8);「えっ、なんでもないって、;ほんと。」pc
  630.                     !|(7);「|(8)さん・・・・。」pc
  631.                     !|(8);「なんだよ、|(7)まで。」pc
  632.                     セシル+=30
  633.                     ミーナ+=20
  634.                     &break
  635.                 &default:
  636.                     !c|(8);「あたしは帰らないよ、;ハンナを助けるまで。」pc
  637.                     !|(7);「そうですよ、急ぎましょう。」pc
  638.                     !|(0);「ああ、そうだよな、行こう。」pc
  639.                     セシル-=20
  640.                     ミーナ-=30
  641.                 }
  642.                 &break
  643.             &case 1:
  644.                 !c|(8);「どうするかって？p;あたしは、;あんた達についてくよ。」pc
  645.                 %selectlist= { これから先は、危険だぞ,そうだな、行こうか }
  646.                 !o(0)|(0)
  647.                 &switch %select {
  648.                 &case 0:
  649.                     !c|(8);「あたしの事、;心配してくれるのかい。p;
  650.                     !あたしなら大丈夫だよ。」pc
  651.                     !|(0);「そうか、それならいい。」pc
  652.                     !|(7);「・w・w・w・w・、そうですよね、;行きましょう。」pc
  653.                     セシル-=10
  654.                     ミーナ+=50
  655.                     &break
  656.                 &default:
  657.                     !c|(8);「いこう！」pc
  658.                     !|(7);「行きましょう。」pc
  659.                 }
  660.                 &break
  661.             &default:
  662.                 !c|(8);「なんだい、;言っとくけどあたしは、;帰らないからね。」pc
  663.                 !|(0);「どうしてだ。」pc
  664.                 !|(8);「理由は別にないよ。;それより、早く行こ。」pc
  665.                 ミーナ-=20
  666.                 &break            //予備
  667.             }
  668.             mina_say=mina_say or 2
  669.         }
  670.         &break
  671.     &case 13:
  672.         &if (event0==0) {
  673.             event0++
  674.             &partymove 8,8,8,8,8
  675.             %manpoint(1)= { 130,62 }
  676.             %manpoint(2)= { 132,62 }
  677.             &on
  678.             !|(8);「待ってよ、|(0)！」pc
  679.             &partymove -2
  680.             !|(0);「|(7)、|(8)、;なんで来たんだ！」pc
  681.             !|(8);「もちろん、仇討ちさ。」pc
  682.             !|(7);「わたしは、あの・w・w・w・。」pc
  683.             !|(8);「いいでしょ|(0)。」pc
  684.             !o(0)|(0)
  685.             %selectlist= { 仕方ないな,勝手にしろ,ダメだ！ }
  686.             &switch %select {
  687.             &case 0:
  688.                 !c|(0);「ここから先、;もっと危険になるぞ。;それでもいいのか。」pc
  689.                 !|(8);「もちろんだよ。;ね、|(7)。」pc
  690.                 !|(7);「ええ。」pc
  691.                 !|(0);「よし、行こうか。」pc
  692.                 &partymove 8,8
  693.                 セシル+=10
  694.                 ミーナ+=10
  695.                 &break
  696.             &case 1:
  697.                 !c|(0);「自分の身は、自分で守れよ！」pc
  698.                 !|(8);「分かってるって、;その覚悟で来たんだからね。」pc
  699.                 !|(7);「わたしも、;覚悟はできています。」pc
  700.                 !|(0);「そうか、ならいい。;行こうか。」pc
  701.                 &partymove 8,8
  702.                 セシル-=30
  703.                 ミーナ-=30
  704.                 &break
  705.             &case 2:
  706.                 !c|(8);「どうしてだい、;別にいいだろ！」pc
  707.                 !|(0);「いや、ダメだ！;俺は、;これ以上犠牲者を出したくない。p;
  708.                 !君達を死なせたくはないんだ！」pc
  709.                 !|(7);「|(0)。」pc
  710.                 !|(8);「それでも行くよ。;|(0)が、何と言おうが、;行くからね。」pc
  711.                 !|(7);「わたしもw・w・w・、;わたしも行きます！」pc
  712.                 !|(0);「分かった、;もう何も言わない。p;さぁ、行こうか。」pc
  713.                 !|(7);「ええ。」pc
  714.                 !|(8);「気合いを入れていこうね！」pc
  715.                 &partymove 8,8
  716.                 セシル-=50
  717.                 ミーナ-=50
  718.                 &break
  719.             &default:
  720.                 !c
  721.                 &partymove 8,8
  722.                 !|(8);「おいっ、無視するなよ！」pc
  723.                 &partymove -2
  724.                 !|(0);「何してるんだ、いくぞ！」pc
  725.                 !|(7);「えっ、はい！」pc
  726.                 !|(8);「な～んだ、そうならそうと;言えばいいのにね。」pc
  727.                 &partymove -8
  728.                 セシル-=10
  729.                 ミーナ-=10
  730.             }
  731.             %mandef(1)= { 8, 0,$40,%up,0 }
  732.             %mandef(2)= { 11,0,$60,%up,0 }
  733.             &on
  734.             &manmove 1, 6,8,8,8,8
  735.             &manmove 2, 4,8
  736.             %manpoint(1)= { 511,511 }
  737.             %manpoint(2)= { 511,511 }
  738.             &partyset 0,7,8
  739.             &on
  740.         }
  741.     }
  742.  
  743.  
  744. #@1                    //出口で注意！
  745.     &if (%direc>=0) {
  746.         &&
  747.     }
  748.     &if (%partyexist(11)==1) {
  749.         !|(11);「ちょっと待った|(0)！;私は、余り外に
  750.         !出ない方がいいのでは。」pc
  751.         !|(0);「そうだったな、すまない。」pc
  752.         ミーナ--
  753.         セシル--
  754.     } &else {
  755.         &if (%partyexist(8)==1) {
  756.             !|(8);「おいっ、|(0)！;どこ行く気なんだ。」pc
  757.             !|(0);「ああっ、;ちょっと間違えただけだ。」pc
  758.             !|(8);「どうだか。」pc
  759.             ミーナ--
  760.             セシル--
  761.         } &else {
  762.             &if (%partyexist(7)==1) {
  763.                 !|(7);「あの～、フレデリック城を、;離れるのですか？」pc
  764.                 !|(0);「いっ、いや。;ちょっと間違えただけだ。」pc
  765.             セシル--
  766.             } &else {
  767.                 !|(0);「おっと、;俺ひとりで帰る訳には;いかないな。」pc
  768.             }
  769.         }
  770.     }
  771.     &partymove 8,8
  772.  
  773.  
  774. #@3
  775.     &if (%direc==8) {
  776.         !|(0);「なんだ、こっちからは;開きそうにないな。」pc
  777.     }
  778.  
  779. #@4
  780.     &if (%direc>=0) {
  781.         &&
  782.     }
  783.     &if ((event==0) and (event0==0)) {
  784.         !|(0);「ん、いやな予感がする。p;
  785.         !まず、;城の外を調べてから入ろう。」pc
  786.         &partymove 2,2,2,2
  787.     } &else {
  788.         &if (event==0) {
  789.             !|(0);「よし入ろう。」pc
  790. //            !ここでちょっと注意！p:
  791. //            !城の中は、:扉がたくさんあります。p:中に入るには、:
  792. //            !決定（イベント）ボタンを:押してください。p:
  793. //            !もちろん、:鍵がないと入れない:扉もあるので注意。pc
  794.         }
  795.         &mappal map\dark.PAL
  796.         &goto2 城１Ｆ,@0,%up
  797.     }
  798.  
  799. #@5
  800.     &if (%direc==8) {
  801.         &if (%haveitem(剣の鍵)==1) {
  802.             !|(0);「どうやらやっと、;ここの鍵を開けられそうだ。」pc
  803.             &jsr pcm_unlock
  804.             &partyitemout (剣の鍵)
  805.             鍵flag=鍵flag or 64
  806.             &&
  807.         }
  808.         &if ((鍵flag and 64)==0) {
  809.             !|(0);「ぜんぜん駄目だ、;びくともしない。p;
  810.             !やっぱりここの鍵がないと;駄目だ。」pc
  811.             &if (%partyexist(7)==1) {
  812.                 !|(7);「ここを見てください、;剣の形の模様があります。」pc
  813.                 !|(0);「そうみたいだな、;剣の鍵というわけか。」pc
  814.             }
  815.             &&
  816.         }
  817.         &jsr OPENDOOR
  818.         door_sound=3
  819.         &mappal map\dark.PAL
  820.         &goto2 城１Ｆ,@12,%up
  821.     }
  822.  
  823. #@6
  824.     &if (%direc!=8) {
  825.         &&
  826.     }
  827.     &jsr OPENDOOR
  828.     door_sound=0
  829.     &exec bin\ZMmask.x
  830.     &mappal map\dark.PAL
  831.     &goto2 城Ｂ１,@5,%down
  832.  
  833. #@7
  834.     &if (%direc!=8) {
  835.         &&
  836.     }
  837.     &jsr OPENDOOR
  838.     door_sound=0
  839.     &exec bin\ZMmask.x
  840.     &mappal map\dark.PAL
  841.     &goto2 城Ｂ１,@2,%down
  842.  
  843. #@10
  844.     &if (%direc>=0) {
  845.         Tbit=1
  846.         &if ((Tsub and Tbit)==0) {
  847.             !|(0);「なんだこれ！」pc
  848.         }
  849.         Tno=(ポーション)
  850.         &jsr 宝ゲット
  851.         T城壁前=Tsub
  852.     }
  853.  
  854. #@11
  855.     &if (%direc>=0) {
  856.         Tbit=2
  857.         &if ((Tsub and Tbit)==0) {
  858.             !|(0);「なんか落ちてるぞ！」pc
  859.         }
  860.         Tno=(ハイポーション)
  861.         &jsr 宝ゲット
  862.         T城壁前=Tsub
  863.     }
  864.  
  865. #@12                    //隠し宝
  866.     &if (%direc>=0) {
  867.         Tbit=4
  868.         &if ((Tsub and Tbit)==0) {
  869.             !|(0);「ここだけ花があるな。」pc
  870.             !|(7);「ほんとうですね。」pc
  871.             !|(8);「なんか、怪しいんじゃない。」pc
  872.             !|(0);「おっ、本当だ。;なにかあるな。」pc
  873.         }
  874.         Tno=(リアリゼーション)
  875.         &jsr 宝ゲット
  876.         T城壁前=Tsub
  877.     }
  878.  
  879. #@13                    //隠し宝
  880.     Tbit=8
  881.     &if (%direc>=0) {
  882.         &if ((Tsub and Tbit)==0) {
  883.             !|(0);「ん、なにか光る物がある。」pc
  884.             !|(7);「なにかしら、;取りましょうか。」pc
  885.             !|(0);「いや、俺が取る。p;・w・w・w・w・いてっ！p;
  886.             !どうやら鍵のようだが、;先がやけに鋭いな。」pc
  887.             !|(7);「だいじょうぶ|(0)。」pc
  888.             !|(0);「ああ、たいしたことはない。」pc
  889.             !|(8);「しかし、危ない鍵だね。p;って、これ、;
  890.             !剣の形してない。」pc
  891.             !|(7);「あっ、ほんとうですね。」pc
  892.             !|(0);「なるほどな。」pc
  893.         }
  894.         Tno=(剣の鍵)
  895.         &jsr 宝ゲット
  896.         T城壁前=Tsub
  897.         &&
  898.     }
  899.     &if ((Tsub and Tbit)==0) {
  900.         &freash $ffff
  901.     }
  902.  
  903. #@40                    //黄金の泉
  904.     &if (event==0) {
  905.         !|(0);「さぁ、城に入ろうか！」pc
  906.     } &else {
  907.         !|(0);「よしっ、頑張るか。」pc
  908.         !|(7);「ええ。頑張りましょう。」pc
  909.         &if (%partyexist(8)==1) {
  910.             !|(8);「また城に、;入るんだね・・・。」pc
  911.         }
  912.     }
  913.     &bgm %nowbgm
  914. #@41
  915.     &if (%direc>=0) {
  916.         &if ((event==0) and (event0==0)) {
  917.             event0++
  918.             !|(0);「これが黄金の水の湧く泉か。;早速飲んでみよう。」pc
  919.         }
  920.         &jsr 黄金の泉
  921.     }
  922.  
  923.  
  924. #@49
  925.     &if (%direc>=0) {
  926.         &&
  927.     }
  928.     &if (event==0) {
  929.         &if (%rnd(52)==17) {
  930.             &jsr 雷
  931.         }
  932.         &&
  933.     } &else {
  934.         &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  935.             &jsr タマ
  936.         }
  937.         &if (%direc>=0) {&&}
  938.         &if (noencounter>0) {
  939.             noencounter--
  940.         } &else {
  941.             &if (%rnd(encounter)!=1) {&&}
  942.             &jsr 敵遭遇
  943.         }
  944.     }
  945.  
  946.  
  947.                                     
  948. [城１Ｆ]            //フレデリック城１階
  949.                                     
  950.     &if (door_sound!=1) {
  951. //        &mappal map\dark.PAL
  952.         &map map\1F.MAP        城１Ｆ.MAP
  953.     }
  954.     &if (ending!=0) {
  955.         %mandef(2) = { 13,0,$c0,%up,0 }        //ハン
  956.         %mandef(3) = { 14,0,$e0,%up,0 }        //ジェラルド
  957.         %manpoint(3) = { 511,511 }
  958.         &on
  959.         &partyspeed 2
  960.         &partymove 8,8,8,8,8,8        //from (128,20)
  961.         &partyset 0,7
  962.         %manpoint(3)= { 128,20 }
  963.         &on
  964.         &manmove 3, 8,8,8,8,8,8,8,8,8,8
  965.         &manmove 2,-2
  966.         %mandef(3)= { 7,0,$e0,%up,-1 }
  967.         &on
  968.         &wait 60
  969.         MANsub=3
  970.         &jsr 消滅
  971.         &partymove 8,8,8
  972.         &wait 150
  973.         MANsub=2
  974.         &jsr 消滅
  975.         &partyspeed 1
  976.         %mandef(2)= { 7,0,$00,%down,0 }
  977.         %manpoint(2)= { -1,1 }
  978.         &on
  979.         &wait 300
  980.         &exec bin\sepia.x
  981.         !　:　:　:　:ＲＥＩＱＡw　　　　　　　　　　:
  982.         !　　　　wＴＮＢ製作所w　　　　　:
  983.         !　　　　wの皆さんw　　　　　　　:
  984.         &wait 300
  985.         &jsr FADEOUT
  986.         !c
  987.         &wait 300
  988.         &spppal map\darkall.PAL
  989.         ending++        //ending=5
  990.         &goto2 城Ｂ１,@0,%down
  991.     }
  992.     &if (event==8) {
  993.         &if (event0==0) {
  994.             &if (%nowbgm!=14) {
  995.                 &bgm 14
  996.             }
  997.         }
  998.     } &else {
  999.         &if (event<8) {
  1000.             &if (%nowbgm!=14) {
  1001.                 &on
  1002.                 &bgm 14
  1003.             }
  1004.         } &else {
  1005.             &if (%nowbgm!=9) {
  1006.                 &bgm 9
  1007.             }
  1008.         }
  1009.     }
  1010.     Tsub=T城１Ｆ
  1011.     Tbit=16
  1012.     &jsr 宝開閉？
  1013.     %mandef(10) = { 15,0,$84+Tno,2,-1 }
  1014.     Tbit=32
  1015.     &jsr 宝開閉？
  1016.     %mandef(11) = { 15,0,$84+Tno,2,-1 }
  1017.  
  1018.     mons1=コウモリ                //monster set
  1019.     hm1=4
  1020.     mons2=吸血コウモリ
  1021.     hm2=2
  1022.     mons3=バーゲスト
  1023.     hm3=1
  1024.     //enc_pat=3
  1025.     encounter=40        // 1/40
  1026.     &jsr 黒十字
  1027.  
  1028.     &if ((event>=3) and (event<6)) {
  1029.         %mandef(1) = { 13,0,$c0,%down,2 }        //ハン
  1030.     } &else {
  1031.         &if (event==8) {
  1032.             %mandef(2) = { 13,0,$c0,%up,0 }        //ハン
  1033.             %mandef(3) = { 14,0,$e0,%up,0 }        //ジェラルド
  1034.             %manpoint(3) = { 511,511 }
  1035.         }
  1036.     }
  1037. //    &jsr DOORCLOSE
  1038.     &if ((door_sound==1) or (door_sound==3)) {
  1039.         &pcm 4
  1040.         &wait 60
  1041.         &exec bin\ZMmask.x
  1042.     }
  1043.     &on
  1044.     &if (door_sound==0) {
  1045.         !o(1);［フレデリック城１階］pc
  1046.     }
  1047.     door_sound=0
  1048.  
  1049.     &switch event { 
  1050.     &default:        //バスエラー回避用
  1051.         &break
  1052.     &case 0:
  1053.         event++                //event=1
  1054.         event0=0
  1055.         !|(0);「なにっ、p;扉が閉まっている。;
  1056.         !確か、入る時には、;扉は開いていたはずだが？p;
  1057.         !どうやら、;閉じ込められたようだ。;
  1058.         !後悔しても仕方ない。;先を急ごう。」pc
  1059.         &break
  1060.     &case 8:
  1061.         &if (event0!=0) {
  1062.             !|(10);「ハンの声は、;この奥から聞こえたのぅ。」pc
  1063.             !|(0);「よしっ、急ごう！」pc
  1064.         }
  1065.         &break
  1066.     &case 10:
  1067.         &if (event0==0) {
  1068.             &partymove -8
  1069.             !|(0);「着いたな、大丈夫か。」pc
  1070.             !|(7);「ええ、大丈夫です。p;あれっ、w;あそこに何か落ちています。」pc
  1071.             !|(0);「ん？;なんだ。」pc
  1072.             &partymove 2,2,2,2,2,2
  1073.             !|(0);「鍵のようだな。」pc
  1074.             !|(0)は、:兜の模様が刻まれた鍵を:手に入れた。pc
  1075.             &jsr disposeofitem
  1076.             &partyitemin (兜の鍵)
  1077.         } &else {
  1078.             &if (event0==1) {
  1079. //                &partyset 0
  1080.                 &partyset 0,7
  1081.                 &on
  1082.                 !声;「フハハハハ、;やはり戻ってきたか。;
  1083.                 !これはこれは、歓迎せねばな。p;フハハハハハハ！」pc
  1084.                 &partyspeed 2
  1085.                 &partymove 8,8,8,8,8,8
  1086.                 //&partyspeed 1
  1087.                 !|(0);「きさまは、;|(12)・ジョン・フレデリック;だな！」pc
  1088.                 !声;「フハハハハ、私のことは、;
  1089.                 !|(12)とでも呼んでくれたまえ。p;
  1090.                 !フハハハハハハっ」pc
  1091.                 !|(0);「待っていろよ|(12)！」pc
  1092.                 !|(12);「ここまで来られるならな。;フハハハハ！」pc
  1093.                 event++            //event=11
  1094.             }
  1095.         }
  1096.         &break
  1097.     }
  1098.     &if (event==13) {        //&case 13:の代行
  1099.         &partyset 0,7,8
  1100.         &on
  1101.         !|(12);「フハハハハ、;また戻ってくるとは、好都合だ。p;
  1102.         &partymove 8,8
  1103.         !彼女の血も;役に立たせてもらったよ。p;次は、wフハハハハ！」pc
  1104.         &partymove 8,8,8,8,8,8
  1105.         !|(0);「待っていろよ！;俺が必ず！」pc
  1106.         !|(12);「必ずどうするんだね。;フハハハハ！」pc
  1107.         event++                //event=14
  1108.         event0=0
  1109.     }
  1110.  
  1111.  
  1112.  
  1113.  
  1114. #1
  1115.     &switch event0 {
  1116.     &case 0:
  1117.         !ハン;「ふっ。p;私は、;ちょっと休んでいるだけだ。p;
  1118.         !それにしても、;鍵がないとロクな所に;行けないな。」pc
  1119.         event0++
  1120.         &&
  1121.     &case 1:
  1122.         !ハン;「なんだ、まだいるのか。;先に行った方が;いいんじゃないか。」pc
  1123.         event0++
  1124.         &&
  1125.     &case 2:
  1126.         !ハン;「ん？;pまだいたのか。;pは～ww、本当にここは、;魔物の巣だな。;p
  1127.         !うじゃうじゃいやがる。」pc
  1128.         !|(0);「退治しに;来たんじゃなかったか。」pc
  1129.         !ハン;「ふ～、君らしい意見だな。」pc
  1130.         event0++
  1131.         &&
  1132.     &case 3:
  1133.         !ハン;「は～ww、君か。」pc
  1134.         !|(0);「まだいるのか。」pc
  1135.         !ハン;「なぁ、君。p;君は、なぜこの仕事を、;引き受けたんだ。」pc
  1136.         !|(0);「俺は、ハンターだからな、;理由なんて無い。p;
  1137.         !なぜそんなことをきく。」pc
  1138.         !ハン;「いや、なんでもない。」pc
  1139.         event0++
  1140.         &&
  1141.     &default:
  1142.         !ハン;「お互い、頑張ろうな。」pc
  1143.         !|(0);「ああ」pc
  1144.     }
  1145.  
  1146. #10                    //宝箱　小
  1147.     Tbit=16
  1148.     &jsr 宝開閉？
  1149.     &if (Tno!=0) {
  1150.         !|(7);「やっぱり、;なにもないですね。」pc
  1151.         &&
  1152.     }
  1153.     !|(0);「こんな所にも;小さな宝箱があるぞ。」pc
  1154.     &jsr pcm_treasure
  1155.     %mandef(10) = { 15,0,$85,2,-1 }
  1156.     &on
  1157.     Tno=(青銅の腕輪)
  1158.     &jsr 宝ゲット
  1159.     T城１Ｆ=Tsub
  1160.     &jsr 宝開閉？
  1161.     %mandef(10) = { 15,0,$84+Tno,2,-1 }
  1162.     &on
  1163.     !|(0);「これは、俺に似合わないな。p;
  1164.     &if (%partyexist(8)==0) {
  1165.         !|(7)、つけてみるか。」pc
  1166.         !|(7);「ええ、わたしなら、;装備できそうです。」pc
  1167.         &&
  1168.     }
  1169.     !どうだ、|(7)か、;|(8)が付ける方が;いいな。」pc
  1170.  
  1171.  
  1172.  
  1173. #11                    //宝箱　小
  1174.     Tbit=32
  1175.     &jsr 宝開閉？
  1176.     &if (Tno!=0) {
  1177.         !|(0);「何度見ても、カラはカラだ。」pc
  1178.         &&
  1179.     }
  1180.     !|(0);「ん、小さな宝箱だな。」pc
  1181.     &jsr pcm_treasure
  1182.     %mandef(11) = { 15,0,$85,2,-1 }
  1183.     &on
  1184.     Tno=(エクスポーション)
  1185.     &jsr 宝ゲット
  1186.     T城１Ｆ=Tsub
  1187.     &jsr 宝開閉？
  1188.     %mandef(11) = { 15,0,$84+Tno,2,-1 }
  1189.     &on
  1190.  
  1191.  
  1192.  
  1193. #@0
  1194.     &if (%direc!=2) {
  1195.         &&
  1196.     }
  1197.     &if (event<15) {
  1198.         !|(0);「やっぱりだめだ。」pc
  1199.         &if (%partyexist(7)==1) {
  1200.             !|(7);「ここからは、;出られないみたいですね。;
  1201.             !他の扉に行きましょう！」pc
  1202.         }
  1203.         &if (%partyexist(8)==1) {
  1204.             !|(8);「あたしもそう思うわ。」pc
  1205.         }
  1206.         &&
  1207.     }
  1208.     &if ((event1 and 256)==0) {
  1209.         !|(0);「おっ、開きそうだ！」pc
  1210.         !|(8);「|(12)は、;何を考えてるんだろうね！」pc
  1211.         !|(7);「でも、城の出入りが、;楽になりますね。」pc
  1212.         !|(0);「そうだな。」pc
  1213.         event1=event1 or 256
  1214.     }
  1215.     &jsr OPENDOOR
  1216.     door_sound=3
  1217.     &goto2 城壁前,@4,%down
  1218.  
  1219.  
  1220. #@1
  1221.     &if (%direc==8) {
  1222.         &jsr OPENDOOR
  1223.         &goto2 城１Ｆ,@2,%up
  1224.     }
  1225.  
  1226. #@2
  1227.     &if (%direc==2) {
  1228.         &jsr OPENDOOR
  1229.         &goto2 城１Ｆ,@1,%down
  1230.     }
  1231.  
  1232. #@3
  1233.     &if (%direc==8) {
  1234.         &jsr OPENDOOR
  1235.         &goto2 城１Ｆ,@4,%up
  1236.     }
  1237.  
  1238. #@4
  1239.     &if (%direc==2) {
  1240.         &jsr OPENDOOR
  1241.         &goto2 城１Ｆ,@3,%down
  1242.     }
  1243.  
  1244. #@5
  1245.     &if (%direc<0) {
  1246.         //&se 22
  1247.         &goto2 城２Ｆ,@0,%down
  1248.     }
  1249.  
  1250. #@6
  1251.     &if (%direc<0) {
  1252.         //&se 22
  1253.         &goto2 城２Ｆ,@1,%down
  1254.     }
  1255.  
  1256. #@7
  1257.     &if (%direc<0) {
  1258.         //&se22
  1259.         &goto2 城２Ｆ,@6,%down
  1260.     }
  1261.  
  1262. #@8
  1263.     &if (%direc==2) {
  1264.         &if (event==10) {
  1265.             !|(0);「やっと、城を出られそうだ。」pc
  1266. //            &partyset 0
  1267.             &partyset 0,7
  1268.         }
  1269.         &if (event==12) {
  1270.             &partyspeed 2
  1271.             &partymove 6,6,6,6
  1272.             //&partyspeed 1
  1273. //            &partyset 0
  1274.             &partyset 0,7,8
  1275.         }
  1276.         &jsr OPENDOOR
  1277.         &goto2 城壁前,@3,%down
  1278.     }
  1279.  
  1280. #@9
  1281.     &if (%direc==8) {
  1282.         &if (%haveitem(兜の鍵)==1) {
  1283.             &jsr pcm_unlock
  1284.             !|(0);「よしっ、あいたぞ！」pc
  1285.             !|(7);「急ぎましょう！」pc
  1286.             &partyitemout (兜の鍵)
  1287.             鍵flag=鍵flag or 32
  1288.             &&
  1289.         }
  1290.         &if ((鍵flag and 32)==0) {
  1291.             !|(0);「ここも、鍵が必要だな。」pc
  1292.             !|(7);「たぶん、この先は、;地下になってると思います。p;
  1293.             !あっ、兜の模様があります。」pc
  1294.             !|(0);「ああ、分かった。;まずは、;兜の模様の鍵探しだな。」pc
  1295.             !|(7);「ええ。」pc
  1296.             &&
  1297.         }
  1298.         &jsr OPENDOOR
  1299.         &goto2 城１Ｆ,@10,%up
  1300.     }
  1301.  
  1302. #@10
  1303.     &if (%direc==2) {
  1304.         &jsr OPENDOOR
  1305.         &goto2 城１Ｆ,@9,%down
  1306.     }
  1307.  
  1308. #@11
  1309.     &if (%direc<0) {
  1310.         &if (event==12) {
  1311.             !|(8);「おいっ、|(0)。;戻ってどうする。」pc
  1312.             !|(7);「そうですよ、;早く上の階に行きましょう！」pc
  1313.             !|(0);「うっ、そうだったな。」pc
  1314.             セシル-=2
  1315.             ミーナ-=2
  1316.         } &else {
  1317.             &if (event==11) {
  1318. //                &partyset 0
  1319.                 &partyset 0,7
  1320.             }
  1321.             //&se 22
  1322.             &goto2 城Ｂ１,@0,%down
  1323.         }
  1324.     }
  1325.  
  1326. #@12
  1327.     &if (%direc==2) {
  1328.         &jsr OPENDOOR
  1329.         &goto2 城壁前,@5,%down
  1330.     }
  1331.  
  1332. #@13
  1333.     &if (%direc==8) {
  1334.         &jsr OPENDOOR
  1335.         &goto2 城１Ｆ,@14,%up
  1336.     }
  1337.  
  1338. #@14
  1339.     &if (%direc==2) {
  1340.         &jsr OPENDOOR
  1341.         &goto2 城１Ｆ,@13,%down
  1342.     }
  1343.  
  1344. #@15
  1345.     &if (%direc<0) {
  1346.         //&se 22
  1347.         &goto2 城Ｂ１,@1,%down
  1348.     }
  1349.  
  1350. #@16
  1351.         //dummy
  1352.  
  1353.  
  1354. #@17
  1355.     &if (%direc!=8) {
  1356.         &&
  1357.     }
  1358.     &if (event==8) {
  1359.         &bgm 10
  1360.         !ハン;「うぎゃぁ～～～！！」pc
  1361.         !|(10);「ハン！;どうしたんじゃ！」pc
  1362.         !|(0);「ハンの身に何かあったのか、;
  1363.         !それにしてもどうやって;入ったんだ。」pc
  1364.         !|(7);「|(0)はやく！」pc
  1365.         !|(0);「そうだな。p;
  1366.         &exec bin\ZMmask.x 9 26 27
  1367.         &pcm 5
  1368.         &wait 40
  1369.         &exec bin\ZMmask.x
  1370.         !よしっ、開いたぞ。」pc
  1371.         &partyitemout (盾の鍵)
  1372.         鍵flag=鍵flag or 8
  1373.         event0++
  1374.         &jmp @f
  1375.         &&
  1376.     }
  1377.     &if ((鍵flag and 8)==0) {
  1378.         !|(0);「鍵が必要だな。;盾の飾りがある。」pc
  1379.         &&
  1380.     }
  1381. &label
  1382.     &jsr OPENDOOR
  1383.     &goto2 城１Ｆ,@18,%up
  1384.  
  1385.  
  1386.  
  1387. #@18
  1388.     &if (%direc==2) {
  1389.         &if (event==8) {
  1390.             !|(10);「なにやってんじゃ|(0)！;ハンをほっておく気か。」pc
  1391.             !|(7);「|(0)・・・・・。」pc
  1392.             セシル--
  1393.             &&
  1394.         }
  1395.         &jsr OPENDOOR
  1396.         &goto2 城１Ｆ,@17,%down
  1397.     }
  1398.  
  1399.  
  1400. #@19
  1401.     &if (%direc>=0) {
  1402.         &&
  1403.     }
  1404.     &if (event!=8) {
  1405.         &&
  1406.     }
  1407.     Xsub=128
  1408.     &jsr Xmove
  1409.     !|(10);「ハン！！」pc
  1410.     &partyspeed 2
  1411.     &partymove 8,8,8,8,8,8
  1412.     !|(0);「おいっ、ハン。」pc
  1413. //    &partyset 0
  1414.     &partyset 0,7
  1415.     %manpoint(3)= { 128,20 }
  1416.     &on
  1417.     &manmove 3, 8,8,8,8,8,8,8,8,8,8
  1418.     !|(10);「どうしたんじゃ、;ハン！」pc
  1419.     &manmove 2,-2
  1420.     !ハン;「うっ、大丈夫だ、p;フハハハ！」pc
  1421.     &bgm 0
  1422.     !|(10);「なんじゃと！」pc
  1423.     !ハン;「ギガボルト！！ww」
  1424.     &jsr 雷
  1425.     %mandef(3)= { 7,0,$e0,%up,-1 }
  1426.     &on
  1427.     MANsub=3
  1428.     &jsr 消滅
  1429.     &bgm 10
  1430.     !c|(7);「きゃ～～！、;|(10)さん～！」pc
  1431.     !|(0);「きっ、きさま～～～！」pc
  1432.     &partymove 8,8,8
  1433.     !ハン;「フハハハハ！」pc
  1434.     Xsub=%nowbgm
  1435.     &bgm 0
  1436.     &battle $1000,11,ハン,1
  1437.     &jsr gold_Gover
  1438.     &bgm Xsub
  1439.     !ハン;「す、すまない|(0)。;こっ、ここれを！」pc
  1440.     !|(0)は、:鎧の模様のある鍵を:ハンから受け取った。pc
  1441.     &jsr disposeofitem
  1442.     &partyitemin (鎧の鍵)
  1443.     !|(0);「ハン、wどういう事なんだ！」pc
  1444.     !ハン;「・・・・。」pc
  1445.     !|(0);「おいハン！こたえろ！」pc
  1446.     MANsub=2
  1447.     &jsr 消滅
  1448.     %mandef(2)= { 7,0,$00,%down,0 }
  1449.     %manpoint(2)= { -1,1 }
  1450.     &on
  1451.     !声;「フハハハハっ、;なかなか楽しませてもらったよ。p;心配する必要はない、;
  1452.     !すぐに会わせてやるよ、;あの世でな。p;フハハハハっ！！」pc
  1453.     !|(0);「きさまだけは、;きさまだけは許さん！」pc
  1454.     Xsub=%nowbgm
  1455.     &bgm 0
  1456.     &battle $1000,23,影,1
  1457.     &if (%exitcode==1) {
  1458.         !声;「フハハハハハハっ！」pc
  1459.     }
  1460.     &jsr gold_Gover
  1461.     &bgm Xsub
  1462.     !声;「フハハハハっ！p;なかなかやるな、;私を楽しませてくれる！p;
  1463.     !フハハハハっ！」pc
  1464.     &bgm -1
  1465.     MANsub=2
  1466.     &jsr 消滅
  1467.     &bgm 9
  1468.     !|(0);「ジェラルド、ハン！p;あんた達の仇は、;俺が必ずとってやる！」pc
  1469.     !|(7);「|(0)・・・・・。」pc
  1470.     !|(0);「さ、行こう！」pc
  1471.     //&partyspeed 1
  1472.     event++                    //event=9
  1473.  
  1474.  
  1475. #@40                    //黄金の泉
  1476.     !|(0);「さぁ、行こうか。」pc
  1477.     &if (%partyexist(7)==1) {
  1478.         !|(7);「ええ、行きましょう。」pc
  1479.     }
  1480.     &if (%partyexist(10)==1) {
  1481.         !|(10);「もうひと頑張りじゃな。」pc
  1482.     }
  1483.     &if (%partyexist(8)==1) {
  1484.         !|(8);「二人とも、;元気だよね・・・。」pc
  1485.     }
  1486.     &bgm %nowbgm
  1487. #@41
  1488.     &if (%direc>=0) {
  1489.         &jsr 黄金の泉
  1490.     }
  1491.  
  1492.  
  1493.  
  1494.  
  1495. #@42                    //隠しアイテム
  1496.     &if (%direc>=0) {
  1497.         Tbit=1
  1498.         &if ((Tsub and Tbit)==0) {
  1499.             !|(0);「柱の隙間に、;なにか入っているぞ！」pc
  1500.         }
  1501.         &if (%partyexist(11)==0) {
  1502.             !|(0);「奥に入っていて、;手が届かない。p;あきらめよう。」pc
  1503.             &if (%partyexist(8)==1) {
  1504.                 !|(8);「すぐあきらめるなんて、;ちょっと見せてみなさいよ。p;
  1505.                 !・w・w・w・w・w・。p;あっ、だめだわ。p;
  1506.                 !気になるけど、あきらめるわ。」pc
  1507.             }
  1508.             &&
  1509.         }
  1510.         !|(0);「やっぱり、だめだ。」pc
  1511.         !|(11);「私が取ろう！」pc
  1512.         Tno=(黒いディスク１)
  1513.         &jsr 宝ゲット
  1514.         T城１Ｆ=Tsub
  1515.     }
  1516.  
  1517. #@43                    //隠しアイテム
  1518.     &if (%direc>=0) {
  1519.         Tbit=2
  1520.         &if ((Tsub and Tbit)==0) {
  1521.             !|(0);「ん？p;なにか落ちているぞ。;
  1522.             !危うく踏むところだった！」pc
  1523.         }
  1524.         Tno=(５’’ディスクＢ)
  1525.         &jsr 宝ゲット
  1526.         T城１Ｆ=Tsub
  1527.     }
  1528.  
  1529. #@44                    //隠しアイテム
  1530.     &if (%direc>=0) {
  1531.         Tbit=4
  1532.         &if ((Tsub and Tbit)==0) {
  1533.             !|(0);「あれ、p;柱になにか、;貼り付いているぞ！」pc
  1534.         }
  1535.         Tno=(５’’ディスクＡ)
  1536.         &jsr 宝ゲット
  1537.         T城１Ｆ=Tsub
  1538.     }
  1539.  
  1540. #@45
  1541.     Tbit=8
  1542.     &if ((Tsub and Tbit)==0) {
  1543.         !|(0);「ん？ハンカチが落ちてるぞ。」pc
  1544.         !|(7);「どうしたの？」pc
  1545.         !o(0)|(0);
  1546.         %selectlist = { これを拾ったんだ,なんでもない }
  1547.         &switch %select {
  1548.         &case 0:
  1549.             !c|(7);「あっ、これ、;わたしが落としたハンカチです。p;
  1550.             !ありがとう|(0)、;見つけてくれて。」pc
  1551.             !|(0);「よかったな。p;でも、泥だらけになってるな。」pc
  1552.             !|(7);「ううん、いいんです。p;これは、おばあちゃんの;形見なんです。」pc
  1553.             !|(0);「もう、なくすなよ。」pc
  1554.             !|(7);「ええ。」pc
  1555.             &if (%partyexist(8)==1) {
  1556.                 !|(8);「あたしは、じゃまかしら。」pc
  1557.                 !|(7);「い、いいえ、別に。」pc
  1558.                 !|(0);「ん。p;別に邪魔ではないが、;どういう意味だ。」pc
  1559.                 !|(8);「べつに。」pc
  1560.                 !|(7);「・・・・・。」pc
  1561.                 !|(0);「よくわからない奴だな。p;さてと、」pc
  1562.                 ミーナ-=20
  1563.             }
  1564.             !|(0);「行こうか。」pc
  1565.             セシル+=50
  1566.             Tsub=Tsub or Tbit
  1567.             T城１Ｆ=Tsub
  1568.             &&
  1569.         &default:
  1570.             セシル-=30
  1571.             !c|(7);「そう・・・・。」pc
  1572.             Tno=(シルクのハンカチ)
  1573.             &jsr 宝ゲット
  1574.             T城１Ｆ=Tsub
  1575.         }
  1576.     }
  1577.  
  1578. #@46
  1579.     encounter=1
  1580.  
  1581. #@47
  1582.     &if (%direc>=0) {
  1583.         &jsr garg_shop
  1584.     }
  1585.  
  1586. #@48
  1587.     enc_pat=2
  1588.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  1589.     &jsr タマ
  1590.     }
  1591.  
  1592.     &if (%direc>=0) {&&}
  1593.     &if (noencounter>0) {
  1594.         noencounter--
  1595.     } &else {
  1596.         &if (%rnd(encounter)!=1) {&&}
  1597.         &jsr 敵遭遇
  1598.     }
  1599.  
  1600.  
  1601.  
  1602. #@49
  1603.     enc_pat=3
  1604.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  1605.     &jsr タマ
  1606.     }
  1607.  
  1608.     &if (%direc>=0) {&&}
  1609.     &if (noencounter>0) {
  1610.         noencounter--
  1611.     } &else {
  1612.         &if (%rnd(encounter)!=1) {&&}
  1613.         &jsr 敵遭遇
  1614.     }
  1615.  
  1616.  
  1617.  
  1618.                                     
  1619. [城２Ｆ]            //フレデリック城２階
  1620.                                     
  1621.     &if (door_sound==0) {
  1622. //        &mappal map\dark.PAL
  1623.         &map map\2F.MAP        //城２Ｆ.MAP
  1624.     }
  1625.     Tsub=T城２Ｆ                //宝セット
  1626.     Tbit=1
  1627.     &jsr 宝開閉？
  1628.     %mandef(10) = { 15,0,$84+Tno,2,-1 }
  1629.     Tbit=128
  1630.     &jsr 宝開閉？
  1631.     %mandef(12) = { 15,0,$84+Tno,2,-1 }
  1632.     %mandef(11) = { 15,0,$88,2,-1 }
  1633.     &if ((Tsub and 80)!=16) {
  1634.         %manpoint(11)= { 511,511 }
  1635.     }
  1636.     mons1=ヘルファイア            //monster set
  1637.     hm1=3
  1638.     mons2=バーゲスト
  1639.     hm2=1
  1640.     mons3=ヘルハウンド
  1641.     hm3=1
  1642.     enc_pat=3
  1643.     encounter=40        // 1/40
  1644.     &jsr 黒十字
  1645.     Xsub=6
  1646.     &jsr mons_reset
  1647.  
  1648.     %mandef(2) = { 13,0,$c0,%up,4 }            //ハン
  1649.     &if (event>=3) {
  1650.         %manpoint(2) ={ 511,511 }
  1651.     }
  1652.     &if (event==1) {
  1653.         %mandef(1) = { 14,0,$e0,%up,6 }        //ジェラルド
  1654.     }
  1655.     &jsr 城sound
  1656.     &jsr DOORCLOSE
  1657.     &on
  1658.     &if (door_sound==0) {
  1659.         !o(1);［フレデリック城２階］pc
  1660.     }
  1661.     door_sound=0
  1662.  
  1663.  
  1664. #1                        //ジェラルド
  1665.     &if (event==1) {
  1666.         !|(10);「おお、お主か。p;ここから先に行くには、;鍵が必要じゃ。p;
  1667.         !わしは、;鍵を見つけたんじゃが、;お主に渡しておこうかの。p;
  1668.         !わしは、ちょっとここで、;休んでからいくわい。」pc
  1669.         //&se 21
  1670.         !|(0)は、:星形の飾りのある鍵を、:手に入れた。pc
  1671.         !|(0);「体、大事にしろよ、;|(10)！」pc
  1672.         !|(10);「すまんの。」pc
  1673.         !|(0);「じゃぁな。」pc
  1674.         event++                //event=2
  1675.         &jsr disposeofitem
  1676.         &partyitemin (星形の鍵)
  1677.     } &else {
  1678.         !|(10);「わしは、大丈夫じゃ。;先行ってくれ。」pc
  1679.         !|(0);「分かってるさ。」pc
  1680.     }
  1681.  
  1682. #2                        //ハン
  1683.     &if (event0==0) {
  1684.         !ハン;「ふっ。p;君か、私の邪魔をしないでくれ。p;
  1685.         !ここの扉の鍵を、;探しているんだが。p;
  1686.         !ん～。w;この太い柱が、;気になるんだが・・・。」pc
  1687.         event0++
  1688.         &&
  1689.     }
  1690.     &if (event0==1) {
  1691.         !ハン;「なんだ、まだいたのか。p;
  1692.         !ところで君、私は、;この黒い十字架を拾ったんだが、;
  1693.         !いらないか。p;これを持っていると、;敵に出会い安くなるみたいで、;
  1694.         !困っていたんだ。p;君は、デビルバスターなんだろ、;
  1695.         !君が持っている方がいいと;思うんだが、どうだい？」pc
  1696.         !o(0)|(0)
  1697.         %selectlist = { そうだな、もらっておくか,いや、君の方が、似合っている }
  1698.         &switch %select {
  1699.         &case 0:
  1700.             &if (%rasthaveitem!=0) {
  1701.                 !cハン;「そうか、助かるよ。」pc
  1702.                 //&se 21
  1703.                 !|(0)は、:黒く塗られた十字架を、:手に入れた。pc
  1704.                 &partyitemin (黒い十字架)
  1705.                 event0++
  1706.                 &&
  1707.             } &else {
  1708.                 !cハン;「なんだ、;もう持てないんじゃないか！」pc
  1709.                 &&
  1710.             }
  1711.         &case 1:
  1712.             !cハン;「ふっ。p;君も、;まだまだということか。」pc
  1713.             &&
  1714.         &default:
  1715.             !cハン;「ふっ、p;返事も無しか、;君らしいな。」pc
  1716.         }
  1717.         &&
  1718.     }
  1719.     !ハン;「ところで、;あの十字架はどうだい？」pc
  1720.     !|(0);「別に、どうもないが。」pc
  1721.     !ハン;「そうか、まぁ、;頑張ってくれ。」pc
  1722.  
  1723.  
  1724. #10                    //宝箱　小
  1725.     Tbit=1
  1726.     &jsr 宝開閉？
  1727.     &if (Tno!=0) {
  1728.         !|(0);「何度見ても、カラだ。」pc
  1729.         &&
  1730.     }
  1731.     !|(0);「ん、小さな宝箱だな。」pc
  1732.     &jsr pcm_treasure
  1733.     %mandef(10) = { 15,0,$85,2,-1 }
  1734.     &on
  1735.     Tno=(ポーション)
  1736.     &jsr 宝ゲット
  1737.     T城２Ｆ=Tsub
  1738.     &jsr 宝開閉？
  1739.     %mandef(10) = { 15,0,$84+Tno,2,-1 }
  1740.     &on
  1741.  
  1742.  
  1743. #11                    //落ちてきた宝箱
  1744.     &ldef tamasub
  1745.     &jsr pcm_treasure
  1746.     %mandef(11) = { 15,0,$89,2,-1 }
  1747.     &on
  1748.     Tbit=64
  1749.     Tno=(タマの鈴)
  1750.     &jsr 宝ゲット
  1751.     T城２Ｆ=Tsub
  1752.     &jsr 宝開閉？
  1753.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  1754.     &on
  1755.     &if ((Tsub and Tbit)!=0) {
  1756.         MANsub=11
  1757.         &jsr 消滅
  1758.         !|(0);「何だ、この鈴は、;苦労してこれだけか。」pc
  1759.         !|(7);「でも、この鈴、;かわいいですね！」pc
  1760.         !|(0);「は～、;骨折り損のなんとかか。」pc
  1761.         !|(8);「ははははっ、wな～んだ、;|(0)も|(7)も;知らないのかい。」pc
  1762.         !|(0);「それじゃ、;|(8)は知ってるのか。」pc
  1763.         !|(8);「もちろんさ。p;その前に、;これあたしにくれるって;
  1764.         !約束してくれない。」pc
  1765.         %selectlist= { ああ別にかまわない,話を聞いてからだ,いやダメだ }
  1766.         !o(0)|(0)
  1767.         tamasub=%select
  1768.         &switch tamasub {
  1769.         &case 0:
  1770.             !c|(8);「そう、絶対だよ！」pc
  1771.             !|(0);「心配するな、嘘はいわない。」pc
  1772.             !|(8);「ならいいわ、よくきいてよ。p;
  1773.             ミーナ+=50
  1774.             &break
  1775.         &case 1:
  1776.             !c|(8);「教えてあげたら、くれる？」pc
  1777.             !|(0);「仕方ないな、;ああ、かまわない。」pc
  1778.             !|(8);「ほんと、じゃぁ、;教えてあげるわね。p;
  1779.             ミーナ+=20
  1780.             &break
  1781.         &default:
  1782.             !c|(8);「ケチ！！」pc
  1783.             !|(7);「あ～あ、|(8)さん;怒っちゃったみたい。」pc
  1784.             !|(0);「おい、説明くらいしてくれても;いいだろ。」pc
  1785.             !|(8);「もう！;一回しか言わないからね。p;
  1786.             セシル-=10
  1787.             ミーナ-=50
  1788.         }
  1789.         !この鈴は、タマの鈴と言って、;持っているだけで、;
  1790.         !お金が増えていく物なんだって。p;昔、親父から聞いたんだけど、;
  1791.         !そんなの冗談だと思ってた。p;お金が増える時、;変な音がするらしいわ。」pc
  1792.         &if ((tamasub==0) or (tamasub==1)) {
  1793.             !|(0);「なるほどな、ほら、約束だ。;やるよ。」pc
  1794.             !|(8);「えっ、そうだったわね。p;
  1795.             !あっ、でも、やっぱり、;|(0)が持っててよ。」pc
  1796.             !|(0);「どうしたんだ？」pc
  1797.             !|(7);「いつもの;|(8)さん;らしくないですね。」pc
  1798.             !|(8);「だってさ、今は危ないし、;この事件が;
  1799.             !片付いたらもらうわね。」pc
  1800.             !|(0);「まぁ、かまわないが。」pc
  1801.             &&
  1802.         }
  1803.         !|(0);「それじゃ、;俺が持っておくか。」pc
  1804.         !|(8);「ふん！p;いいわよ～wだ！」pc
  1805.     }
  1806.  
  1807. #12                    //宝箱　小
  1808.     Tbit=128
  1809.     &jsr 宝開閉？
  1810.     &if (Tno!=0) {
  1811.         !|(0);「カラに変わりはないな。」pc
  1812.         &&
  1813.     }
  1814.     !|(0);「目立たないとこにあるな。」pc
  1815.     &jsr pcm_treasure
  1816.     %mandef(12) = { 15,0,$85,2,-1 }
  1817.     &on
  1818.     Tno=(エクスポーション)
  1819.     &jsr 宝ゲット
  1820.     T城２Ｆ=Tsub
  1821.     &jsr 宝開閉？
  1822.     %mandef(12) = { 15,0,$84+Tno,2,-1 }
  1823.     &on
  1824.  
  1825. #@0
  1826.     &if (%direc<0) {
  1827.         //&se 22
  1828.         &goto2 城１Ｆ,@5,%down
  1829.     }
  1830.  
  1831. #@1
  1832.     &if (%direc<0) {
  1833.         //&se 22
  1834.         &goto2 城１Ｆ,@6,%down
  1835.     }
  1836.  
  1837. #@2
  1838.     &if (%direc==8) {
  1839.         &if (%haveitem(星形の鍵)==1) {
  1840.             &jsr pcm_unlock
  1841.             !|(0);「開いたぞ！」pc
  1842.             &partyitemout (星形の鍵)
  1843.             鍵flag=鍵flag or 1
  1844.             &&
  1845.         }
  1846.         &if ((鍵flag and 1)==0) {
  1847.             !|(0);「ここは、鍵が必要だな。p;
  1848.             !いくらやっても開かないな。p;
  1849.             !ん、星の飾りか。」pc
  1850.             &&
  1851.         }
  1852.         &jsr OPENDOOR
  1853.         &goto2 城２Ｆ,@7,%up
  1854.     }
  1855.  
  1856. #@3
  1857.     &if (%direc<0) {
  1858.         //&se 22
  1859.         &goto2 城３Ｆ,@0,%down
  1860.     }
  1861.  
  1862. #@4
  1863.     &if (%direc==8) {
  1864.         &if (%haveitem(鎧の鍵)==1) {
  1865.             &jsr pcm_unlock
  1866.             !|(0);「開いた！wよし行くぞ！」pc
  1867.             !|(7);「ええ、行きましょう。」pc
  1868.             &partyitemout (鎧の鍵)
  1869.             鍵flag=鍵flag or 16
  1870.         } &else {
  1871.             &if ((鍵flag and 16)==0) {
  1872.                 !|(0);「ここも、鍵が必要か。」pc
  1873.                 &if (%partyexist(7)==1) {
  1874.                     !|(7);「見てください、;鎧の模様があります。」pc
  1875.                     !|(0);「鎧の鍵が必要だな。」pc
  1876.                 } &else {
  1877.                     !|(0);「鎧の模様か。」pc
  1878.                 }
  1879.             } &else {
  1880.                 &jsr OPENDOOR
  1881.                 &goto2 城２Ｆ,@8,%up
  1882.             }
  1883.         }
  1884.     }
  1885.  
  1886. #@5
  1887.     &if (%direc<0) {
  1888.         //&se 22
  1889.         &goto2 城３Ｆ,@3,%down
  1890.     }
  1891.  
  1892. #@6
  1893.     &if (%direc<0) {
  1894.         //&se 22
  1895.         &goto2 城１Ｆ,@7,%down
  1896.     }
  1897.  
  1898. #@7
  1899.     &if (%direc==2) {
  1900.         &jsr OPENDOOR
  1901.         &goto2 城２Ｆ,@2,%down
  1902.     }
  1903.  
  1904. #@8
  1905.     &if (%direc==2) {
  1906.         &jsr OPENDOOR
  1907.         &goto2 城２Ｆ,@4,%down
  1908.     }
  1909.  
  1910. #@42                //タマの鈴
  1911.     &if (%direc!=8) {
  1912.         &&
  1913.     }
  1914.     Tsub=T城２Ｆ
  1915.     &if (%haveitem(５’’ディスクＡ)==1) {
  1916.         !|(0);「ん～、;この５インチディスクＡが;うまく入りそうだ。」pc
  1917.         !|(7);「入れてみましょう。」pc
  1918.         &if (%partyexist(8)==1) {
  1919.             !|(8);「そうそう、;何事もやってみないとね！」pc
  1920.         }
  1921.         &jsr pcm_unlock
  1922.         !|(0);「おっ、うまく入ったぞ。」pc
  1923.         &partyitemout (５’’ディスクＡ)
  1924.         T城２Ｆ=Tsub or 2
  1925.         &&
  1926.     }
  1927.     &if (%haveitem(５’’ディスクＢ)==1) {
  1928.         !|(7);「この５インチディスクＢが、;入るんじゃないかしら？」pc
  1929.         !|(0);「そうだな、入れてみるか。」pc
  1930.         &if (%partyexist(8)==1) {
  1931.             !|(8);「早く入れてみよう、早く！」pc
  1932.         }
  1933.         &jsr pcm_unlock
  1934.         !|(7);「あっ、うまく入りましたね。」pc
  1935.         &partyitemout (５’’ディスクＢ)
  1936.         T城２Ｆ=Tsub or 4
  1937.         &&
  1938.     }
  1939.     &if (%haveitem(光り輝く円盤)==1) {
  1940.         !|(0);「よしっ、;この円盤が入りそうだ。」pc
  1941.         !|(7);「ええ、でも、;ちょっともったいないような。」pc
  1942.         &if (%partyexist(8)==1) {
  1943.             !|(8);「え～！;この綺麗なの入れるの;もったいないな！」pc
  1944.         }
  1945.         &jsr pcm_unlock
  1946.         !|(0);「やっぱり入ったな。;俺の思った通りだ。」pc
  1947.         &partyitemout (光り輝く円盤)
  1948.         T城２Ｆ=Tsub or 8
  1949.         &&
  1950.     }
  1951.     &if ((Tsub and 16)!=0) {
  1952.         !|(0);「もう何も起こらないな！」pc
  1953.         !|(7);「そうみたいですね。」pc
  1954.         !|(8);「また、;宝箱が降りてくるといいな！」pc
  1955.         &&
  1956.     }
  1957.     &if ((Tsub and 14)==0) {
  1958.         &if ((Tsub and 32)==0) {
  1959.             !|(0);「ん！p;こんな所に穴が開いてるぞ！」pc
  1960.             !|(7);「ほんとう、開いてますね。;何かを入れるのかしら。」pc
  1961.             &if (%partyexist(8)==1) {
  1962.                 !|(8);「中は、どうなってるのかな、;覗いてみよっと！p;
  1963.                 !・w・w・w・w・w・w・。;暗くて良く分からないわね。p;
  1964.                 !なんだろねこれ！」pc
  1965.             }
  1966.             !|(0);「さぁな、p;いまは関係なさそうだ。」pc
  1967.             T城２Ｆ=Tsub or 32
  1968.         } &else {
  1969.             !|(0);「何度覗いても仕方ない。;行くぞ。」pc
  1970.             !|(7);「ええ。」pc
  1971.         }
  1972.         &&
  1973.     }
  1974.     &if ((Tsub and 14)==14) {
  1975.         !|(0);「ん？」pc
  1976.         %manpoint(11)= { 203,0 }
  1977.         &on
  1978.         !|(7);「ほら見て、上の方！」pc
  1979.         !|(8);「たw、宝箱が、うw、浮いてる！」pc
  1980.         &partymove 6,6,6,6,6,6
  1981.         &manmove 11, 2,2,2,2,2,2,2,2,2,2,2,2,2
  1982.         !|(0);「おっ、w;宝箱が降りてきた！;早速中身を拝見しようか。」pc
  1983.         Tsub=Tsub or 16
  1984.         T城２Ｆ=Tsub
  1985.         &&
  1986.     }
  1987.     !|(0);「他に、何か入れる物があるかも;しれない。探してみよう。」pc
  1988.     !|(7);「ええ、そうですね。」pc
  1989.     &if (%partyexist(8)==1) {
  1990.         !|(8);「早く探そう、何が起こるか;見てみたいからさ。」pc
  1991.     }
  1992.  
  1993.  
  1994. #@40                    //黄金の泉
  1995.     !|(0);「さて、行くとするか。」pc
  1996.     &if (%partyexist(7)==1) {
  1997.         !|(7);「ええ、そうですね。」pc
  1998.     }
  1999.     &if (%partyexist(10)==1) {
  2000.         !|(10);「よっしゃ！p;頑張るぞい。」pc
  2001.     }
  2002.     &if (%partyexist(8)==1) {
  2003.         !|(8);「そうよね、行きましょ。」pc
  2004.     }
  2005.     &bgm %nowbgm
  2006. #@41
  2007.     &if (%direc>=0) {
  2008.         &jsr 黄金の泉
  2009.     }
  2010.  
  2011. #@49
  2012.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  2013.     &jsr タマ
  2014.     }
  2015.  
  2016.     &if (%direc>=0) {&&}
  2017.     &if (noencounter>0) {
  2018.         noencounter--
  2019.     } &else {
  2020.         &if (%rnd(encounter)!=1) {&&}
  2021.         &jsr 敵遭遇
  2022.     }
  2023.  
  2024.  
  2025.  
  2026.  
  2027.                                     
  2028. [城３Ｆ]            //フレデリック城３階
  2029.                                     
  2030.     &if (door_sound==0) {
  2031. //        &mappal map\dark.PAL
  2032.         &map map\3F.MAP        //城３Ｆ.MAP
  2033.     }
  2034.     &jsr 城sound
  2035.     &if (event==7) {
  2036.         %mandef(1) = { 14,0,$e0,%down,-1 }        //ジェラルド
  2037.     }
  2038.     mons1=ヘルファイア            //monster set
  2039.     hm1=3
  2040.     mons2=ヘルハウンド
  2041.     hm2=3
  2042.     mons3=ビーストソール
  2043.     hm3=2
  2044.     mons4=ゴブリン
  2045.     enc_pat=4
  2046.     encounter=40        // 1/40
  2047.     &jsr 黒十字
  2048.     Xsub=6
  2049.     &jsr mons_reset
  2050.  
  2051.     Tsub=T城３Ｆ
  2052.     Tbit=1
  2053.     &jsr 宝開閉？
  2054.     %mandef(10) = { 15,0,$84+Tno,2,-1 }
  2055.     Tbit=2
  2056.     &jsr 宝開閉？
  2057.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  2058.     &jsr DOORCLOSE
  2059.     &on
  2060.     &if (door_sound==0) {
  2061.         !o(1);［フレデリック城３階］pc
  2062.     }
  2063.     door_sound=0
  2064.  
  2065.  
  2066. #10                    //宝箱　小
  2067.     Tbit=1
  2068.     &jsr 宝開閉？
  2069.     &if (Tno!=0) {
  2070.         !|(0);「やっぱし、無いな。」pc
  2071.         &&
  2072.     }
  2073.     !|(0);「おっ、中身はなにかな。」pc
  2074.     &jsr pcm_treasure
  2075.     %mandef(10) = { 15,0,$85,2,-1 }
  2076.     &on
  2077.     Tno=(ハイポーション)
  2078.     &jsr 宝ゲット
  2079.     T城３Ｆ=Tsub
  2080.     &jsr 宝開閉？
  2081.     %mandef(10) = { 15,0,$84+Tno,2,-1 }
  2082.     &on
  2083.  
  2084.  
  2085. #11                    //宝箱　大
  2086.     Tbit=2
  2087.     &jsr 宝開閉？
  2088.     &if (Tno!=0) {
  2089.         !|(0);「俺の使える武器とかは;・w・w・w・p;
  2090.         !やっぱり、無いよな。」pc
  2091.         &&
  2092.     }
  2093.     &jsr pcm_treasure
  2094.     %mandef(11) = { 15,0,$89,2,-1 }
  2095.     &on
  2096.     &if (%partyexist(7)==1) {
  2097.         Tno=(海竜の杖)
  2098.         &jsr 宝ゲット
  2099.         T城３Ｆ=Tsub
  2100.         &if ((Tsub and Tbit)!=0) {
  2101.             !|(0);「何だ、この杖は？」pc
  2102.             !|(7);「あっ、わたし知ってます。;この杖には、;
  2103.             !水の魔力が込められています。」pc
  2104.             !|(0);「俺には使えそうにないが、;君はどうだ。」pc
  2105.             !|(7);「ええ、扱えます。」pc
  2106.             !|(0);「なら決まりだ、;君が持ってるといい。」pc
  2107.             !|(7);「ええ、そうします。」pc
  2108.             セシル+=20
  2109.             &if (%partyexist(8)==1) {
  2110.                 !|(8);「なぁ、|(7)。;これって高いのか。」pc
  2111.                 !|(7);「ええと、p;そこそこする物だと;思いますけど。」pc
  2112.                 !|(8);「そう、じゃあたしにくれない。;
  2113.                 !どうせ拾い物だし、いいでしょ。」pc
  2114.                 !|(7);「ええ、別にいいですけど。」pc
  2115.                 !|(0);「おいっ、|(8)、;君は使えるのか。」pc
  2116.                 !|(8);「使えないけど・・・。」pc
  2117.                 !|(0);「だったら、;持っててもしょうがないだろ。」pc
  2118.                 !|(8);「わかったわよ、;はいっ|(7)。」pc
  2119.                 !|(8);「コソコソ;（ねぇ、後でちょうだい！）」pc
  2120.                 !|(7);「コソコソ;（ええ、いいですよ。）」pc
  2121.                 !|(0);「なにコソコソいってるんだ、;行くぞ。」pc
  2122.             }
  2123.         }
  2124.     } &else {
  2125.         !|(0);「何だ、この杖は？p;俺には使えないな。p;
  2126.         !持っていてもしょうがない、;置いていこう。」pc
  2127.     }
  2128.     &jsr 宝開閉？
  2129.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  2130.     &on
  2131.  
  2132.  
  2133. #1
  2134.     //ダミー
  2135.  
  2136.  
  2137. #@0
  2138.     &if (%direc<0) {
  2139.         //&se 22
  2140.         &goto2 城２Ｆ,@3,%down
  2141.     }
  2142.  
  2143. #@1
  2144.     &if (%direc<0) {
  2145.         //&se 22
  2146.         &goto2 城４Ｆ,@1,%down
  2147.     }
  2148.  
  2149. #@2
  2150.     &if (%direc<0) {
  2151.         //&se 22
  2152.         &goto2 城４Ｆ,@2,%down
  2153.     }
  2154.  
  2155. #@3
  2156.     &if (%direc<0) {
  2157.         //&se 22
  2158.         &goto2 城２Ｆ,@5,%down
  2159.     }
  2160.  
  2161. #@4
  2162.     &if (%direc==8) {
  2163.         &jsr OPENDOOR
  2164.         &goto2 城３Ｆ,@5,%up
  2165.     }
  2166.  
  2167. #@5
  2168.     &if (%direc==2) {
  2169.         &jsr OPENDOOR
  2170.         &goto2 城３Ｆ,@4,%down
  2171.     }
  2172.  
  2173. #@6
  2174.     &if (%direc>=0) {
  2175.         &&
  2176.     }
  2177.     &if (event==7) {
  2178.         !|(10);「おおっ！wおぬし、|(7)姫を;助けたんじゃな！」pc
  2179.         &partymove -2
  2180.         !|(0);「|(7)ひめ！？p;そうかあんたが、;そうだったのか。」pc
  2181.         &partymove -8
  2182.         !|(10);「|(7)姫、;御無事でなによりですじゃ！」pc
  2183.         !|(7);「あっ、あの、あなたは？」pc
  2184.         !|(10);「おお、これはすまない。p;わしの名は、;|(10)・オイヘルですじゃ。p;
  2185.         !わしもここから先、;姫をお守りするわい。」pc
  2186.         !|(7);「ありがとうございます。」pc
  2187.         !|(10);「さ、行きましょうぞ。p;と言いたいのじゃが、
  2188.         !;外に出る方法が;わからんのじゃ。」pc
  2189.         !|(0);「取り敢えず、;ここに鍵があるから、;
  2190.         !これに合う扉を探そうか。」pc
  2191.         !|(10);「そうじゃのう。」pc
  2192.         &partymove 8,8,8,8,8,8,8,8
  2193.         %manpoint(1)= { 511,511 }
  2194.         &partyset 0,7,10
  2195.         &on
  2196.         event++                //event=8
  2197.         event0=0
  2198.     }
  2199.  
  2200. #@40                    //黄金の泉
  2201.     !|(0);「休みは、;このぐらいにしておこうか。」pc
  2202.     &if (%partyexist(10)==1) {
  2203.         !|(10);「そうじゃな。」pc
  2204.     }
  2205.     &if (%partyexist(7)==1) {
  2206.         !|(7);「そうですね、十分に、;休むことができましたし。」pc
  2207.     }
  2208.     &if (%partyexist(8)==1) {
  2209.         !|(8);「あたしは、まだ居たいけど。p;あっ、w別にいいわよ。;行きましょ。」pc
  2210.     }
  2211.     &bgm %nowbgm
  2212. #@41
  2213.     &if (%direc>=0) {
  2214.         &jsr 黄金の泉
  2215.     }
  2216.  
  2217. #@47
  2218.     &if (%direc>=0) {
  2219.         &jsr garg_shop
  2220.     }
  2221.  
  2222. #@49
  2223.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  2224.     &jsr タマ
  2225.     }
  2226.  
  2227.     &if (%direc>=0) {&&}
  2228.     &if (noencounter>0) {
  2229.         noencounter--
  2230.     } &else {
  2231.         &if (%rnd(encounter)!=1) {&&}
  2232.         &jsr 敵遭遇
  2233.     }
  2234.  
  2235.  
  2236.                                     
  2237. [城４Ｆ]            //フレデリック城４階
  2238.                                     
  2239.     &if (door_sound==0) {
  2240. //        &mappal map\dark.PAL
  2241.         &map map\4F.MAP        //城４Ｆ.MAP
  2242.     }
  2243.     mons1=ビーストソール            //monster set
  2244.     hm1=4
  2245.     mons2=ゴブリン
  2246.     hm2=1
  2247.     mons3=グレムリン
  2248.     hm3=1
  2249.     enc_pat=3
  2250.     encounter=40        // 1/40
  2251.     &jsr 黒十字
  2252.     Xsub=6
  2253.     &jsr mons_reset
  2254.  
  2255.     &jsr 城sound
  2256.     Tsub=T城４Ｆ
  2257.     Tbit=1
  2258.     &jsr 宝開閉？
  2259.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  2260.     Tbit=2
  2261.     &jsr 宝開閉？
  2262.     %mandef(11) = { 15,0,$84+Tno,2,-1 }
  2263.     Tbit=4
  2264.     &jsr 宝開閉？
  2265.     %mandef(12) = { 15,0,$84+Tno,2,-1 }
  2266.  
  2267.     &jsr DOORCLOSE
  2268.     &on
  2269.     &if (door_sound==0) {
  2270.         !o(1);［フレデリック城４階］pc
  2271.     }
  2272.     door_sound=0
  2273.  
  2274.  
  2275. #10                    //宝箱　大
  2276.     Tbit=1
  2277.     &jsr 宝開閉？
  2278.     &if (Tno!=0) {
  2279.         !|(0);「もう、珍しいものは;入ってないな。」pc
  2280.         &&
  2281.     }
  2282.     !|(0);「早速開けてみよう！」pc
  2283.     &jsr pcm_treasure
  2284.     %mandef(10) = { 15,0,$89,2,-1 }
  2285.     &on
  2286.     Tno=(光り輝く円盤)
  2287.     &jsr 宝ゲット
  2288.     T城４Ｆ=Tsub
  2289.     &jsr 宝開閉？
  2290.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  2291.     &on
  2292.     !|(0);「いったい、;何に使う物だろうか？」pc
  2293.  
  2294.  
  2295. #11                    //宝箱　小
  2296.     Tbit=2
  2297.     &jsr 宝開閉？
  2298.     &if (Tno!=0) {
  2299.         !|(0);「カラだ。」pc
  2300.         &&
  2301.     }
  2302.     !|(0);「こっち側の中身はなにかな。」pc
  2303.     &jsr pcm_treasure
  2304.     %mandef(11) = { 15,0,$85,2,-1 }
  2305.     &on
  2306.     Tno=(ポーション)
  2307.     &jsr 宝ゲット
  2308.     T城４Ｆ=Tsub
  2309.     &jsr 宝開閉？
  2310.     %mandef(11) = { 15,0,$84+Tno,2,-1 }
  2311.     &on
  2312.  
  2313.  
  2314. #12                    //宝箱　小
  2315.     Tbit=4
  2316.     &jsr 宝開閉？
  2317.     &if (Tno!=0) {
  2318.         !|(0);「やっぱり、カラだ。」pc
  2319.         &&
  2320.     }
  2321.     !|(0);「こちらは、どうかな。」pc
  2322.     &jsr pcm_treasure
  2323.     %mandef(12) = { 15,0,$85,2,-1 }
  2324.     &on
  2325.     Tno=(ハイポーション)
  2326.     &jsr 宝ゲット
  2327.     T城４Ｆ=Tsub
  2328.     &jsr 宝開閉？
  2329.     %mandef(12) = { 15,0,$84+Tno,2,-1 }
  2330.     &on
  2331.  
  2332.  
  2333.  
  2334. #@0
  2335.     &if (%direc<0) {
  2336.         //&se 22
  2337.         &goto2 城５Ｆ２,@0,%down
  2338.     }
  2339.  
  2340. #@1
  2341.     &if (%direc<0) {
  2342.         //&se 22
  2343.         &goto2 城３Ｆ,@1,%down
  2344.     }
  2345.  
  2346. #@2
  2347.     &if (%direc<0) {
  2348.         //&se 22
  2349.         &goto2 城３Ｆ,@2,%down
  2350.     }
  2351.  
  2352. #@3
  2353.     &if (%direc<0) {
  2354.         //&se 22
  2355.         &goto2 城５Ｆ３,@1,%down
  2356.     }
  2357.  
  2358. #@4
  2359.     &if (%direc<0) {
  2360.         //&se 22
  2361.         &goto2 城５Ｆ１,@1,%down
  2362.     }
  2363.  
  2364. #@5
  2365.     &if (%direc<0) {
  2366.         //&se 22
  2367.         &goto2 城５Ｆ１,@0,%down
  2368.     }
  2369.  
  2370. #@6
  2371.     &if (%direc==8) {
  2372.         &jsr OPENDOOR
  2373.         &goto2 城４Ｆ,@7,%down
  2374.     }
  2375.  
  2376.  
  2377. #@7
  2378.     &if (%direc==2) {
  2379.         &if (%haveitem(月形の鍵)==1) {
  2380.             !|(0);「あの子のおかげ・w・w・w・wか。p;
  2381.             &jsr pcm_unlock
  2382.             !くそっ、w;助けることができなかった。p;
  2383.             !後悔しても仕方ない、;先を急ごう。」pc
  2384.             &partyitemout (月形の鍵)
  2385.             鍵flag=鍵flag or 2
  2386.             &&
  2387.         }
  2388.         &if ((鍵flag and 2)==0) {
  2389.             !|(0);「ここも、鍵が必要だな。p;
  2390.             !ここは、月の模様か。p;
  2391.             !鍵はどこかにあるはずだ。」pc
  2392.             &&
  2393.         }
  2394.         &jsr OPENDOOR
  2395.         &goto2 城４Ｆ,@6,%down
  2396.     }
  2397.  
  2398. #@20
  2399.                     //かくれんぼ
  2400.     &if (%direc>=0) {
  2401.         &&
  2402.     }
  2403.     //&if ((eventT and 128)!=0) {
  2404.     &if ((%haveitem(退魔玉)!=0) or (%haveitem(聖なる砂)!=0)) {
  2405.         &&
  2406.     }
  2407.     &if ((eventT and 256)==0) {
  2408.         !|(1);「ここがよく分かりましたね。p;
  2409.         !ご褒美として、アイテムを、;選んでください。」pc
  2410.         eventT=eventT or 256
  2411.     } &else {
  2412.         !|(1);「よく来てくれました。;さぁ、選んでください。」pc
  2413.     }
  2414.     &if (%rasthaveitem==0) {
  2415.         !|(1);「っと、w;なにか持ち物を減らしてから、;また来てください。」pc
  2416.         &&
  2417.     }
  2418.     %selectlist = { 退魔玉,聖なる砂 }
  2419.     &switch %select {
  2420.     &case 0:
  2421.         !|(1);「これを使うとモンスター達に、;尋常でないダメージを;与えます。」pc
  2422.         &partyitemin(退魔玉)
  2423.         &break
  2424.     &case 1:
  2425.         !|(1);「これを、黄金の泉で使うと、;しばらくの間、モンスター達にp;
  2426.         !出会わなくなります。」pc
  2427.         &partyitemin(聖なる砂)
  2428.         &break
  2429.     &default:
  2430.         !|(1);「そうですか、;また来てください。」pc
  2431.         &&
  2432.     }
  2433.     //eventT=eventT or 128
  2434.     !|(1);「それでは、これから先、;頑張ってください。」pc
  2435.  
  2436.  
  2437. #@40                    //黄金の泉
  2438.     !|(0);「よしっ！w;疲れは、十分取れた。p;行くとするか。」pc
  2439.     &if (%partyexist(7)==1) {
  2440.         !|(7);「ええ、行きましょう。」pc
  2441.     }
  2442.     &if (%partyexist(10)==1) {
  2443.         !|(10);「早く、片付けたいの～。」pc
  2444.     }
  2445.     &if (%partyexist(8)==1) {
  2446.         !|(8);「は～！w;体の疲れは取れたけど、;精神的にねぇ～。」pc
  2447.     }
  2448.     &bgm %nowbgm
  2449. #@41
  2450.     &if (%direc>=0) {
  2451.         &jsr 黄金の泉
  2452.     }
  2453.  
  2454.  
  2455. #@47
  2456.     &if (%direc>=0) {
  2457.         &jsr garg_shop
  2458.     }
  2459.  
  2460.  
  2461. #@49
  2462.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  2463.     &jsr タマ
  2464.     }
  2465.  
  2466.     &if (%direc>=0) {&&}
  2467.     &if (noencounter>0) {
  2468.         noencounter--
  2469.     } &else {
  2470.         &if (%rnd(encounter)!=1) {&&}
  2471.         &jsr 敵遭遇
  2472.     }
  2473.  
  2474.  
  2475.                                     
  2476. [城５Ｆ１]            //フレデリック城５階　行き止まり
  2477.                                     
  2478.     &if (door_sound==0) {
  2479.         //&mappal map\dark.PAL
  2480.         &map map\5F.MAP        //城５Ｆ.MAP
  2481.     }
  2482.     &jsr 城sound
  2483.     mons1=ビーストソール            //monster set
  2484.     hm1=3
  2485.     mons2=グレムリン
  2486.     hm2=2
  2487.     mons3=エビルソール
  2488.     hm3=2
  2489.     enc_pat=3
  2490.     encounter=32        // 1/32
  2491.     &jsr 黒十字
  2492.     Xsub=6
  2493.     &jsr mons_reset
  2494.  
  2495.     &if (event==4) {
  2496.         %mandef(1) = { 9,0,$00,%down,1 }
  2497.     }
  2498.     &jsr DOORCLOSE
  2499.     &on
  2500.     &if (door_sound==0) {
  2501.         !o(1);［フレデリック城５階］pc
  2502.     }
  2503.  
  2504.     &if ((event==4) and (door_sound==0) and (%px<20)) {
  2505.         &partymove 2,2,6,6,6,6
  2506.         !|(0);「向こうの扉の中に;何かいる気配がするな。p;行ってみるか。」pc
  2507.     }
  2508.     door_sound=0
  2509.  
  2510.  
  2511. #1                //gargoyle
  2512.     !ガーゴイル;「この城に入った奴は、;皆死ぬんだ。」pc
  2513.     Xsub=%nowbgm
  2514.     &bgm 0
  2515.     &battle $1000,11,ガーゴイル,1
  2516.     &jsr gold_Gover
  2517.     &bgm Xsub
  2518.     !|(0);「こいつ、何か持ってるぞ。」pc
  2519.     !|(0)は、:太陽のように赤く丸い:飾りのある鍵を手に入れた。pc
  2520.     &jsr disposeofitem
  2521.     &partyitemin (太陽の鍵)
  2522.     %manpoint(1) = { 511,511 }
  2523.     &on
  2524.     event++                //event=5
  2525.  
  2526. #@0
  2527.     &if (%direc<0) {
  2528.         //&se 22
  2529.         &goto2 城４Ｆ,@5,%down
  2530.     }
  2531.  
  2532. #@1
  2533.     &if (%direc<0) {
  2534.         //&se 22
  2535.         &goto2 城４Ｆ,@4,%down
  2536.     }
  2537.  
  2538. #@2
  2539.     &if (%direc<0) {
  2540.         //&se 22
  2541.         &goto2 城６Ｆ１,@0,%down
  2542.     }
  2543.  
  2544. #@3
  2545.     &if (%direc==8) {
  2546.         &if (event==4) {
  2547.             !|(0);「間違いない、中に誰かいる！」pc
  2548.         }
  2549.         &jsr OPENDOOR
  2550.         &goto2 城５Ｆ１,@4,%up
  2551.     }
  2552.  
  2553. #@4
  2554.     &if (%direc==2) {
  2555.         &jsr OPENDOOR
  2556.         &goto2 城５Ｆ１,@3,%down
  2557.     }
  2558.  
  2559.  
  2560. #@49
  2561.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  2562.     &jsr タマ
  2563.     }
  2564.  
  2565.     &if (%direc>=0) {&&}
  2566.     &if (noencounter>0) {
  2567.         noencounter--
  2568.     } &else {
  2569.         &if (%rnd(encounter)!=1) {&&}
  2570.         &jsr 敵遭遇
  2571.     }
  2572.  
  2573.  
  2574.                                     
  2575. [城５Ｆ２]            //フレデリック城５階　本道
  2576.                                     
  2577.     //&mappal map\dark.PAL
  2578.     &map map\downup.MAP        //塔下上.MAP
  2579.     &jsr 城sound
  2580.     mons1=ゼリフィッシュ            //monster set
  2581.     hm1=3
  2582.     mons2=ゾンビ
  2583.     hm2=2
  2584.     mons3=コープス
  2585.     hm3=1
  2586.     enc_pat=3
  2587.     encounter=32        // 1/32
  2588.     &jsr 黒十字
  2589.     Xsub=6
  2590.     &jsr mons_reset
  2591.     &on
  2592.     !o(1);［フレデリック城５階］pc
  2593.  
  2594. #@0
  2595.     &if (%direc<0) {
  2596.         //&se 22
  2597.         &goto2 城４Ｆ,@0,%down
  2598.     }
  2599.  
  2600. #@1
  2601.     &if (%direc<0) {
  2602.         //&se 22
  2603.         &goto2 城６Ｆ２,@1,%down
  2604.     }
  2605.  
  2606. #@49
  2607.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  2608.     &jsr タマ
  2609.     }
  2610.  
  2611.     &if (%direc>=0) {&&}
  2612.     &if (noencounter>0) {
  2613.         noencounter--
  2614.     } &else {
  2615.         &if (%rnd(encounter)!=1) {&&}
  2616.         &jsr 敵遭遇
  2617.     }
  2618.  
  2619.  
  2620.                                     
  2621. [城５Ｆ３]            //フレデリック城５階　秘密の通路
  2622.                                     
  2623.     //&mappal map\dark.PAL
  2624.     &map map\updown.MAP        //塔上下.MAP
  2625.     &jsr 城sound
  2626.     mons1=エビルネオン            //monster set
  2627.     hm1=4
  2628.     mons2=デスバイパー
  2629.     hm2=3
  2630.     mons3=グリフォン
  2631.     hm3=1
  2632.     enc_pat=3
  2633.     encounter=32        // 1/32
  2634.     &jsr 黒十字
  2635.     Xsub=11
  2636.     &jsr mons_reset
  2637.     &on
  2638.     !o(1);［フレデリック城５階］pc
  2639.  
  2640.  
  2641. #@0
  2642.     &if (%direc<0) {
  2643.         //&se 22
  2644.         &goto2 城６Ｆ３,@0,%down
  2645.     }
  2646.  
  2647. #@1
  2648.     &if (%direc<0) {
  2649.         //&se 22
  2650.         &goto2 城４Ｆ,@3,%down
  2651.     }
  2652.  
  2653.  
  2654. #@49
  2655.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  2656.     &jsr タマ
  2657.     }
  2658.  
  2659.     &if (%direc>=0) {&&}
  2660.     &if (noencounter>0) {
  2661.         noencounter--
  2662.     } &else {
  2663.         &if (%rnd(encounter)!=1) {&&}
  2664.         &jsr 敵遭遇
  2665.     }
  2666.  
  2667.  
  2668.                                     
  2669. [城６Ｆ１]            //フレデリック城６階　行き止まり
  2670.                                     
  2671.     //&mappal map\dark.PAL
  2672.     &map map\6F.MAP        //城６Ｆ.MAP
  2673.     &if (ending!=0) {
  2674.         %mandef(1) = { 9,0,$a0,%right,0 }
  2675.         &on
  2676.         &partymove 4,4,4,4,4,4,4,4,4,4,2,-4
  2677.         &wait 100
  2678.         &exec bin\sepia.x
  2679.         !　:　:　:　:音楽　　　　　　　　　　:w
  2680.         !　　　　wＲｅｉ．wさん　　　　　　　:
  2681.         !　　　　w三浦　政和wさん　　　　　　:
  2682.         !　　　　wＹＯＵ－Ｃwさん　　　　　　
  2683.         &wait 300
  2684.         &jsr FADEOUT
  2685.         !c
  2686.         &wait 300
  2687.         &spppal map\darkall.PAL
  2688.         ending++        //ending=3
  2689.         &goto2 城１３Ｆ,105,51,%up
  2690.     }
  2691.     &if (event==2) {
  2692.     %mandef(1) = { 9,0,$a0,%down,0 }
  2693.         &bgm 8
  2694.         encounter=1
  2695.     } &else {
  2696.         &jsr 城sound
  2697.         mons1=さ迷える魂        //monster set
  2698.         hm1=8
  2699.         enc_pat=1
  2700.         encounter=32        // 1/32
  2701.         &jsr 黒十字
  2702.         Xsub=11
  2703.         &jsr mons_reset
  2704.     }
  2705.     &on
  2706.     !o(1);［フレデリック城６階］pc
  2707.  
  2708.  
  2709.  
  2710. #1
  2711.     !女の子;「お兄ちゃん！」pc
  2712.     !|(0);「よかった。生存者がいたか。p;なぁ君、;
  2713.     !こんな所にいたら危険だから、;俺についといで。」pc
  2714.     !女の子;「うん、いいの。p;お兄ちゃん、;来てくれてありがとう。;これあげる。」pc
  2715.     //&se 21
  2716.     !|(0)は、:月を型どった飾りのある鍵を、:手に入れた。pc
  2717.     &jsr disposeofitem
  2718.     &partyitemin (月形の鍵)
  2719.     !女の子;「お兄ちゃん、さよなら。」pc
  2720.     MANsub=1
  2721. //    Xsub=15
  2722. //    Ysub=28
  2723.     &bgm -1
  2724.     &jsr 消滅
  2725.     &bgm 14
  2726.     !|(0);「なんてことだ、;こんな幼い子まで。」pc
  2727.     event++                //event=3
  2728.     event0=0
  2729.  
  2730. #@0
  2731.     &if (%direc<0) {
  2732.         //&se 22
  2733.         &goto2 城５Ｆ１,@2,%down
  2734.     }
  2735.  
  2736. #@49
  2737.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  2738.     &jsr タマ
  2739.     }
  2740.  
  2741.     &if (%direc>=0) {&&}
  2742.     &if (noencounter>0) {
  2743.         noencounter--
  2744.     } &else {
  2745.         &if (%rnd(encounter)!=1) {&&}
  2746.         &jsr 敵遭遇
  2747.     }
  2748.  
  2749.  
  2750.                                     
  2751. [城６Ｆ２]            //フレデリック城６階　本道
  2752.                                     
  2753.     //&mappal map\dark.PAL
  2754.     &map map\updown.MAP        //塔上下.MAP
  2755.     &jsr 城sound
  2756.     mons1=ゼリフィッシュ            //monster set
  2757.     hm1=4
  2758.     mons2=ゾンビ
  2759.     hm2=2
  2760.     mons3=コープス
  2761.     hm3=2
  2762.     enc_pat=3
  2763.     encounter=32        // 1/32
  2764.     &jsr 黒十字
  2765.     Xsub=6
  2766.     &jsr mons_reset
  2767.  
  2768.     &on
  2769.     !o(1);［フレデリック城６階］pc
  2770.  
  2771. #@0
  2772.     &if (%direc<0) {
  2773.         //&se 22
  2774.         &goto2 城７Ｆ,@0,%down
  2775.     }
  2776.  
  2777. #@1
  2778.     &if (%direc<0) {
  2779.         //&se 22
  2780.         &goto2 城５Ｆ２,@1,%down
  2781.     }
  2782.  
  2783. #@49
  2784.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  2785.     &jsr タマ
  2786.     }
  2787.  
  2788.     &if (%direc>=0) {&&}
  2789.     &if (noencounter>0) {
  2790.         noencounter--
  2791.     } &else {
  2792.         &if (%rnd(encounter)!=1) {&&}
  2793.         &jsr 敵遭遇
  2794.     }
  2795.  
  2796.  
  2797.                                     
  2798. [城６Ｆ３]            //フレデリック城６階　秘密の通路
  2799.                                     
  2800.     //&mappal map\dark.PAL
  2801.     &map map\downup.MAP        //塔下上.MAP
  2802.     &jsr 城sound
  2803.     Tsub=T城６Ｆ                //宝セット
  2804.     Tbit=1
  2805.     &jsr 宝開閉？
  2806.     %mandef(10) = { 15,0,$86+Tno,2,-1 }
  2807.     mons1=エビルネオン            //monster set
  2808.     hm1=4
  2809.     mons2=デスバイパー
  2810.     hm2=3
  2811.     mons3=グリフォン
  2812.     hm3=1
  2813.     enc_pat=3
  2814.     encounter=32        // 1/32
  2815.     &jsr 黒十字
  2816.     Xsub=11
  2817.     &jsr mons_reset
  2818.     &on
  2819.     !o(1);［フレデリック城６階］pc
  2820.  
  2821. #10                    //宝箱　中
  2822.     Tbit=1
  2823.     &jsr 宝開閉？
  2824.     &if (Tno!=0) {
  2825.         !|(0);「もう何も無いようだ。」pc
  2826.         &&
  2827.     }
  2828.     !|(0);「宝箱があるな。」pc
  2829.     !|(7);「開けてみましょう。」pc
  2830.     &jsr pcm_treasure
  2831.     %mandef(10) = { 15,0,$87,2,-1 }
  2832.     &on
  2833.     Tno=(エクスポーション)
  2834.     &jsr 宝ゲット
  2835.     T城６Ｆ=Tsub
  2836.     &jsr 宝開閉？
  2837.     %mandef(10) = { 15,0,$86+Tno,2,-1 }
  2838.     &on
  2839.  
  2840.  
  2841.  
  2842. #@0
  2843.     &if (%direc<0) {
  2844.         //&se 22
  2845.         &goto2 城５Ｆ３,@0,%down
  2846.     }
  2847.  
  2848. #@1
  2849.     &if (%direc<0) {
  2850.         //&se 22
  2851.         &goto2 城７Ｆ,@2,%down
  2852.     }
  2853.  
  2854. #@49
  2855.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  2856.     &jsr タマ
  2857.     }
  2858.  
  2859.     &if (%direc>=0) {&&}
  2860.     &if (noencounter>0) {
  2861.         noencounter--
  2862.     } &else {
  2863.         &if (%rnd(encounter)!=1) {&&}
  2864.         &jsr 敵遭遇
  2865.     }
  2866.  
  2867.  
  2868.                                     
  2869. [城７Ｆ]            //フレデリック城７階
  2870.                                     
  2871.     &if (door_sound!=1) {
  2872.         //&mappal map\dark.PAL
  2873.         &map map\7F.MAP        //城７Ｆ.MAP
  2874.     }
  2875.     &jsr 城sound
  2876.     Tsub=T城７Ｆ                //宝セット
  2877.     Tbit=1
  2878.     &jsr 宝開閉？
  2879.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  2880.     Tbit=2
  2881.     &jsr 宝開閉？
  2882.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  2883.     Tbit=4
  2884.     &jsr 宝開閉？
  2885.     %mandef(12) = { 15,0,$88+Tno,2,-1 }
  2886.     Tbit=8
  2887.     &jsr 宝開閉？
  2888.     %mandef(13) = { 15,0,$84+Tno,2,-1 }
  2889.     Tbit=16
  2890.     &jsr 宝開閉？
  2891.     %mandef(14) = { 15,0,$86+Tno,2,-1 }
  2892.     Tbit=32
  2893.     &jsr 宝開閉？
  2894.     %mandef(15) = { 15,0,$88+Tno,2,-1 }
  2895.     Tbit=64
  2896.     &jsr 宝開閉？
  2897.     %mandef(16) = { 15,0,$88+Tno,2,-1 }
  2898.     Tbit=128
  2899.     &jsr 宝開閉？
  2900.     %mandef(17) = { 15,0,$88+Tno,2,-1 }
  2901.     mons1=ゼリフィッシュ            //monster set
  2902.     hm1=5
  2903.     mons2=ガスクラウド
  2904.     hm2=2
  2905.     mons3=エビルコープス
  2906.     hm3=1
  2907.     enc_pat=3
  2908.     encounter=40        // 1/40
  2909.     &jsr 黒十字
  2910.     Xsub=6
  2911.     &jsr mons_reset
  2912.     &jsr DOORCLOSE
  2913.     &on
  2914.     &if (door_sound==0) {
  2915.         !o(1);［フレデリック城７階］pc
  2916.     }
  2917.     door_sound=0
  2918.  
  2919.  
  2920. #10                    //宝箱　大
  2921.     Tbit=1
  2922.     &jsr 宝開閉？
  2923.     &if (Tno!=0) {
  2924.         !|(0);「もう無いみたいだな。」pc
  2925.         &&
  2926.     }
  2927.     !|(0);「こっちはどうかな。」pc
  2928.     &jsr pcm_treasure
  2929.     %mandef(10) = { 15,0,$89,2,-1 }
  2930.     &on
  2931.     &if (%partyexist(7)==1) {
  2932.         !|(7);「うわぁ～、p;きれいなブレスレット！」pc
  2933.     }
  2934.     &if (%partyexist(8)==1) {
  2935.         !|(8);「うわぁ～、p;高そうなブレスレット！」pc
  2936.     }
  2937.     Tno=(プラチナの腕輪)
  2938.     &jsr 宝ゲット
  2939.     T城７Ｆ=Tsub
  2940.     &jsr 宝開閉？
  2941.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  2942.     &on
  2943.  
  2944.  
  2945.  
  2946. #11                    //宝箱　大
  2947.     Tbit=2
  2948.     &jsr 宝開閉？
  2949.     &if (Tno!=0) {
  2950.         !|(0);「もう、入ってないか。」pc
  2951.         &&
  2952.     }
  2953.     !|(0);「ここにもある。」pc
  2954.     &jsr pcm_treasure
  2955.     %mandef(11) = { 15,0,$89,2,-1 }
  2956.     &on
  2957.     &if (%partyexist(7)==1) {
  2958.         !|(7);「わぁ、きれい！」pc
  2959.     }
  2960.     &if (%partyexist(8)==1) {
  2961.         !|(8);「うわぁ～、ww高そう！」pc
  2962.     }
  2963.     Tno=(プラチナの腕輪)
  2964.     &jsr 宝ゲット
  2965.     T城７Ｆ=Tsub
  2966.     &jsr 宝開閉？
  2967.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  2968.     &on
  2969.  
  2970.  
  2971.  
  2972. #12                    //宝箱　大
  2973.     Tbit=4
  2974.     &jsr 宝開閉？
  2975.     &if (Tno!=0) {
  2976.         !|(0);「俺用の物はと・w・w・w・。;pやっぱり何も無いな。」pc
  2977.         &&
  2978.     }
  2979.     &if ((T7sub and 1)==0) {
  2980.         !|(0);「はぁ～、p;変なところにある宝箱だな。」pc
  2981.     }
  2982.     &jsr pcm_treasure
  2983.     %mandef(12) = { 15,0,$89,2,-1 }
  2984.     &on
  2985.     &if (%partyexist(7)==1) {
  2986.         Tno=(リボン)
  2987.         &jsr 宝ゲット
  2988.         T城７Ｆ=Tsub
  2989.         &if ((Tsub and Tbit)!=0) {
  2990.             !|(7);「きれいなリボン！」pc
  2991.             !|(0);「|(7)に、;似合いそうだな。;つけてみたらどうだ。」pc
  2992.             !|(7);「えっ、わたし。p;ええ、ありがとう。」pc
  2993.             セシル+=20
  2994.             &if (%partyexist(8)==1) {
  2995.                 !|(8);「いいねぇ～！」pc
  2996.             }
  2997.         }
  2998.     } &else {
  2999.         !|(0);「リボンか、;俺はいらないな。」pc
  3000.         T7sub=T7sub or 1
  3001.     }
  3002.     &jsr 宝開閉？
  3003.     %mandef(12) = { 15,0,$88+Tno,2,-1 }
  3004.     &on
  3005.  
  3006.  
  3007.  
  3008. #13                    //宝箱　小
  3009.     Tbit=8
  3010.     &jsr 宝開閉？
  3011.     &if (Tno!=0) {
  3012.         !|(0);「見るまでもない。」pc
  3013.         &&
  3014.     }
  3015.     !|(0);「ん、p;こんな所に小さな宝箱がある。」pc
  3016.     &jsr pcm_treasure
  3017.     %mandef(13) = { 15,0,$85,2,-1 }
  3018.     &on
  3019.     Tno=(ポーション)
  3020.     &jsr 宝ゲット
  3021.     T城７Ｆ=Tsub
  3022.     &jsr 宝開閉？
  3023.     %mandef(13) = { 15,0,$84+Tno,2,-1 }
  3024.     &on
  3025.  
  3026.  
  3027.  
  3028. #14                    //宝箱　中
  3029.     Tbit=16
  3030.     &jsr 宝開閉？
  3031.     &if (Tno!=0) {
  3032.         !|(0);「なにもない。」pc
  3033.         &&
  3034.     }
  3035.     !|(0);「宝箱だな。;開けてみるか。」pc
  3036.     &jsr pcm_treasure
  3037.     %mandef(14) = { 15,0,$87,2,-1 }
  3038.     &on
  3039.     Tno=(エクスポーション)
  3040.     &jsr 宝ゲット
  3041.     T城７Ｆ=Tsub
  3042.     &jsr 宝開閉？
  3043.     %mandef(14) = { 15,0,$86+Tno,2,-1 }
  3044.     &on
  3045.  
  3046.  
  3047. #15                    //宝箱　大
  3048.     Tbit=32
  3049.     &jsr 宝開閉？
  3050.     &if (Tno!=0){
  3051.         !|(0);「俺用の物は無いな。」pc
  3052.         &&
  3053.     }
  3054.     &if ((T7sub and 2)==0) {
  3055.         !|(0);「ふぅ、やっと見つけたぞ。」pc
  3056.     }
  3057.     &jsr pcm_treasure
  3058.     %mandef(15) = { 15,0,$89,2,-1 }
  3059.     &on
  3060.     &if (%partyexist(8)==1) {
  3061.         Tno=(イヤリング)
  3062.         &jsr 宝ゲット
  3063.         T城７Ｆ=Tsub
  3064.         &if ((Tsub and Tbit)!=0) {
  3065.             !|(0);「イヤリングか！p;|(8)むきだな。;いるか？」pc
  3066.             !|(8);「もっ、もちろんよ。p;|(0)ありがと。」pc
  3067.             !|(7);「|(8)さん、;似合ってます。」pc
  3068.             !|(8);「そう、じゃぁ、;つけてみようかな。」pc
  3069.             ミーナ+=20
  3070.         }
  3071.     } &else {
  3072.         &if (T7sub==0) {
  3073.             !|(0);「イヤリングか。p;つけてみるか、;|(7)！」pc
  3074.             !|(7);「ごめんなさい。p;わたし、つけられないんです。」pc
  3075.             !|(0);「それじゃ、;持っていても仕方ないな。」pc
  3076.             T7sub=T7sub or 2
  3077.         } &else {
  3078.             !|(0);「何度見ても仕方ない。;行くか。」pc
  3079.             !|(7);「ええ。」pc
  3080.         }
  3081.     }
  3082.     &jsr 宝開閉？
  3083.     %mandef(15) = { 15,0,$88+Tno,2,-1 }
  3084.     &on
  3085.  
  3086.  
  3087.  
  3088. #16                    //宝箱　大
  3089.     Tbit=64
  3090.     &jsr 宝開閉？
  3091.     &if (Tno!=0) {
  3092.         !|(0);「ん～、カラだ。」pc
  3093.         &if (%partyexist(11)==1) {
  3094.             !|(11);「探しても無駄だな。」pc
  3095.         }
  3096.         &&
  3097.     }
  3098.     !|(0);「ここにもあったとは。」pc
  3099.     &jsr pcm_treasure
  3100.     %mandef(16) = { 15,0,$89,2,-1 }
  3101.     &on
  3102.     !|(0);「この指輪、;一体、何に使うものだろうか？p;分かるか。」pc
  3103.     !|(7);「ごめんなさい、;わたしも見るのは、;初めてなんです。」pc
  3104.     &if (%partyexist(8)==1) {
  3105.         !|(8);「あたしもだよ、;何だろねこれ。」pc
  3106.     }
  3107.     &if (%partyexist(11)==1) {
  3108.         !|(11);「これは、;私のものだ。」pc
  3109.         !|(0);「おいっ、|(11)。;急に話すなよ。」pc
  3110.         !|(11);「すまない。p;しかし、;こんな所に隠していたとはな。p;
  3111.         !これは、私の装備品だ。」pc
  3112.         !|(0);「なら、あんたが持ってろよ。」pc
  3113.         !|(11);「そうさせてもらおうか。」pc
  3114.     } &else {
  3115.         !|(0);「まっ、;何かに役立つかもしれないから、;持っていくか。」pc
  3116.         !|(7);「ええ。」pc
  3117.     }
  3118.     Tno=(エビルリング)
  3119.     &jsr 宝ゲット
  3120.     T城７Ｆ=Tsub
  3121.     &jsr 宝開閉？
  3122.     %mandef(16) = { 15,0,$88+Tno,2,-1 }
  3123.     &on
  3124.  
  3125.  
  3126.  
  3127. #17                    //宝箱　大
  3128.     Tbit=128
  3129.     &jsr 宝開閉？
  3130.     &if (Tno!=0) {
  3131.         !|(0);「カラっぽ。」pc
  3132.         &&
  3133.     }
  3134.     !|(0);「ん～、p;近くだと思ったら、;えらい遠回りだったな。」pc
  3135.     &jsr pcm_treasure
  3136.     %mandef(17) = { 15,0,$89,2,-1 }
  3137.     &on
  3138.     !|(0);「いい薬だな。」pc
  3139.     Tno=(リアリゼーション)
  3140.     &jsr 宝ゲット
  3141.     T城７Ｆ=Tsub
  3142.     &jsr 宝開閉？
  3143.     %mandef(17) = { 15,0,$88+Tno,2,-1 }
  3144.     &on
  3145.  
  3146.  
  3147.  
  3148.  
  3149. #@0
  3150.     &if (%direc<0) {
  3151.         //&se 22
  3152.         &goto2 城６Ｆ２,@0,%down
  3153.     }
  3154.  
  3155. #@1
  3156.     &if (%direc<0) {
  3157.         //&se 22
  3158.         &goto2 城８Ｆ,@0,%down
  3159.     }
  3160.  
  3161. #@2
  3162.     &if (%direc<0) {
  3163.         //&se 22
  3164.         &goto2 城６Ｆ３,@1,%down
  3165.     }
  3166.  
  3167. #@3
  3168.     &if (%direc==2) {
  3169.         &if (event==3) {
  3170.             !|(0);「くっ、ここも鍵が必要か。p;
  3171.             !行ける所は、行ったはずだが、;もう一度戻って、;
  3172.             !探してみようか。」pc
  3173.             event++            //event=4
  3174.             &&
  3175.         }
  3176.         &if (%haveitem(太陽の鍵)==1) {
  3177.             &jsr pcm_unlock
  3178.             !|(0);「よしっ、行くぞ。」pc
  3179.             &partyitemout (太陽の鍵)
  3180.             鍵flag=鍵flag or 4
  3181.             &&
  3182.         }
  3183.         &if ((鍵flag and 4)==0) {
  3184.             !|(0);「太陽の飾りか。」pc
  3185.             &&
  3186.         }
  3187.         &jsr OPENDOOR
  3188.         &goto2 城７Ｆ,@4,%down
  3189.     }
  3190.  
  3191. #@4
  3192.     &if (%direc==8) {
  3193.         &jsr OPENDOOR
  3194.         &goto2 城７Ｆ,@3,%up
  3195.     }
  3196.  
  3197. #@5
  3198.     &if (%direc>=0) {
  3199.         &&
  3200.     }
  3201.     &if (event==9) {
  3202.         &partymove -2
  3203.         !|(0);「どうやら、ここからロープを;下るしかなさそうだ。」pc
  3204.         !|(7);「|(0)、;わたしこわい！」pc
  3205.         %selectlist = { 俺が受け止めてやる、心配するな,なんだったら、背中を押そうか }
  3206.         !o(0)|(0)
  3207.         &switch %select {
  3208.         &case 0:
  3209.             !c|(7);「ありがとう|(0)！p;もう大丈夫です。ww;あなたがいてくれるから。」pc
  3210.             セシル+=50
  3211.             &break
  3212.         &case 1:
  3213.             !c|(7);「もう、|(0)から行ってよ！p;わたしは、;後から行きますから！」pc
  3214.             セシル-=50
  3215.             &break
  3216.         &default:
  3217.             !c|(7);「もう！;無視しないでください。」pc
  3218.             セシル-=20
  3219.         }
  3220.         event0=0
  3221.         event++                //event=10
  3222. //        &partyset 0
  3223.         &partyset 0,7
  3224.         &on
  3225.         &jmp @f
  3226.     }
  3227.     !|(7);「ねぇ|(0)、;また下りるのですか？」pc
  3228.     %selectlist = { 下りよう,やめよう }
  3229.     !o(0)|(0)
  3230.     &if (%select!=0) {
  3231.         &partymove 6,6,6,6
  3232.         &&
  3233.     }
  3234.     !;「大丈夫か。」pc
  3235.     !|(7);「ええ、わたし、;もう大丈夫です！」pc
  3236.     &if (%partyexist(8)==1) {
  3237.         !|(8);「あたしは、こんなの平気だよ。p;
  3238.         !でも、ちょっと恐いかな。」pc
  3239.     }
  3240.     &if (%partyexist(11)==1) {
  3241.         !|(11);「私は、飛べるので、;気にならないが。」pc
  3242.         !|(8);「あんたが、うらやましいよ！」pc
  3243.     }
  3244. &label
  3245.     &partymove 2,2,2
  3246.     &jsr move_fadeout
  3247.     &partymove 2,2,2,2
  3248.     &goto2 城１Ｆ,@16,-%down
  3249.  
  3250.  
  3251. #@40                    //黄金の泉
  3252.     !|(0);「行くか。」pc
  3253.     &if (%partyexist(7)==1) {
  3254.         !|(7);「ええ、行きましょう。」pc
  3255.     }
  3256.     &if (%partyexist(10)==1) {
  3257.         !|(10);「もうひと頑張りじゃ。」pc
  3258.     }
  3259.     &if (%partyexist(8)==1) {
  3260.         !|(8);「行きましょう、;行きましょう。」pc
  3261.     }
  3262.     &bgm %nowbgm
  3263. #@41
  3264.     &if (%direc>=0) {
  3265.         &jsr 黄金の泉
  3266.     }
  3267.  
  3268.  
  3269. #@42
  3270.     &if (%direc>=0) {
  3271.         &&
  3272.     }
  3273.     &if ((eventT and 1)==0) {
  3274.         !|(0);「ここは、通れそうだな。p;しかし、見えない道か。」pc
  3275.         &if (%partyexist(7)==1) {
  3276.             !|(7);「えっ、ここ通るんですか。p;
  3277.             !あまり気が進まないですけど。」pc
  3278.         }
  3279.         &if (%partyexist(8)==1) {
  3280.             !|(8);「そんなこと無いよ、;
  3281.             !何かいいものが、;あるかもしれないしね。」pc
  3282.         }
  3283.         eventT=eventT or 1
  3284.     }
  3285.  
  3286.  
  3287.  
  3288. #@47
  3289.     &if (%direc>=0) {
  3290.         &jsr garg_shop
  3291.     }
  3292.  
  3293.  
  3294. #@49
  3295.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  3296.     &jsr タマ
  3297.     }
  3298.  
  3299.     &if (%direc>=0) {&&}
  3300.     &if (noencounter>0) {
  3301.         noencounter--
  3302.     } &else {
  3303.         &if (%rnd(encounter)!=1) {&&}
  3304.         &jsr 敵遭遇
  3305.     }
  3306.  
  3307.  
  3308.  
  3309.                                     
  3310. [城８Ｆ]            //フレデリック城８階
  3311.                                     
  3312.     //&mappal map\dark.PAL
  3313.     &map map\downup.MAP        //塔下上.MAP
  3314.     &jsr 城sound
  3315.     mons1=バイパー            //monster set
  3316.     hm1=3
  3317.     mons2=メデューサ
  3318.     hm2=1
  3319.     mons3=ポイズンガス
  3320.     hm3=1
  3321.     enc_pat=3
  3322.     encounter=32        // 1/32
  3323.     &jsr 黒十字
  3324.     Xsub=11
  3325.     &jsr mons_reset
  3326.  
  3327.     &on
  3328.     !o(1);［フレデリック城８階］pc
  3329.  
  3330. #@0
  3331.     &if (%direc<0) {
  3332.         //&se 22
  3333.         &goto2 城７Ｆ,@1,%down
  3334.     }
  3335.  
  3336. #@1
  3337.     &if (%direc<0) {
  3338.         //&se 22
  3339.         &goto2 城９Ｆ,@1,%down
  3340.     }
  3341.  
  3342. #@49
  3343.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  3344.     &jsr タマ
  3345.     }
  3346.  
  3347.     &if (%direc>=0) {&&}
  3348.     &if (noencounter>0) {
  3349.         noencounter--
  3350.     } &else {
  3351.         &if (%rnd(encounter)!=1) {&&}
  3352.         &jsr 敵遭遇
  3353.     }
  3354.  
  3355.  
  3356.                                     
  3357. [城９Ｆ]            //フレデリック城９階
  3358.                                     
  3359.     //&mappal map\dark.PAL
  3360.     &map map\updown.MAP        //塔上下.MAP
  3361.     &jsr 城sound
  3362.     mons1=バイパー            //monster set
  3363.     hm1=5
  3364.     mons2=メデューサ
  3365.     hm2=1
  3366.     mons3=ポイズンガス
  3367.     hm3=1
  3368.     enc_pat=3
  3369.     encounter=32        // 1/32
  3370.     &jsr 黒十字
  3371.     Xsub=11
  3372.     &jsr mons_reset
  3373.     &on
  3374.     !o(1);［フレデリック城９階］pc
  3375.  
  3376. #@0
  3377.     &if (%direc<0) {
  3378.         //&se 22
  3379.         &goto2 城１０Ｆ,@0,%down
  3380.     }
  3381.  
  3382. #@1
  3383.     &if (%direc<0) {
  3384.         //&se 22
  3385.         &goto2 城８Ｆ,@1,%down
  3386.     }
  3387.  
  3388. #@49
  3389.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  3390.     &jsr タマ
  3391.     }
  3392.  
  3393.     &if (%direc>=0) {&&}
  3394.     &if (noencounter>0) {
  3395.         noencounter--
  3396.     } &else {
  3397.         &if (%rnd(encounter)!=1) {&&}
  3398.         &jsr 敵遭遇
  3399.     }
  3400.  
  3401.  
  3402.                                     
  3403. [城１０Ｆ]            //フレデリック城１０階
  3404.                                     
  3405.     //&mappal map\dark.PAL
  3406.     &map map\downup.MAP        //塔下上.MAP
  3407.     &jsr 城sound
  3408.     Tsub=T城１０Ｆ                //宝セット
  3409.     Tbit=1
  3410.     &jsr 宝開閉？
  3411.     %mandef(10) = { 15,0,$84+Tno,2,-1 }
  3412.  
  3413.     mons1=バイパー            //monster set
  3414.     hm1=5
  3415.     mons2=メデューサ
  3416.     hm2=2
  3417.     mons3=ポイズンガス
  3418.     hm3=1
  3419.     enc_pat=3
  3420.     encounter=32        // 1/32
  3421.     &jsr 黒十字
  3422.     Xsub=11
  3423.     &jsr mons_reset
  3424.  
  3425.     &on
  3426.     !o(1);［フレデリック城１０階］pc
  3427.  
  3428.  
  3429. #10                    //宝箱　小
  3430.     Tbit=1
  3431.     &jsr 宝開閉？
  3432.     &if (Tno!=0) {
  3433.         !|(0);「もう開いているぞ。」pc
  3434.         &&
  3435.     }
  3436.     !|(0);「ここにも宝箱があるな。p;早速開けてみるか。」pc
  3437.     &jsr pcm_treasure
  3438.     %mandef(10) = { 15,0,$85,2,-1 }
  3439.     &on
  3440.     Tno=(ハイポーション)
  3441.     &jsr 宝ゲット
  3442.     T城１０Ｆ=Tsub
  3443.     &jsr 宝開閉？
  3444.     %mandef(10) = { 15,0,$84+Tno,2,-1 }
  3445.     &on
  3446.  
  3447.  
  3448. #@0
  3449.     &if (%direc<0) {
  3450.         //&se 22
  3451.         &goto2 城９Ｆ,@0,%down
  3452.     }
  3453.  
  3454. #@1
  3455.     &if (%direc<0) {
  3456.         //&se 22
  3457.         &goto2 城１１Ｆ,@1,%down
  3458.     }
  3459.  
  3460. #@49
  3461.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  3462.     &jsr タマ
  3463.     }
  3464.  
  3465.     &if (%direc>=0) {&&}
  3466.     &if (noencounter>0) {
  3467.         noencounter--
  3468.     } &else {
  3469.         &if (%rnd(encounter)!=1) {&&}
  3470.         &jsr 敵遭遇
  3471.     }
  3472.  
  3473.  
  3474.                                     
  3475. [城１１Ｆ]            //フレデリック城１１階
  3476.                                     
  3477.     //&mappal map\dark.PAL
  3478.     &map map\updown.MAP        //塔上下.MAP
  3479.     &jsr 城sound
  3480.     mons1=バイパー            //monster set
  3481.     hm1=4
  3482.     mons2=メデューサ
  3483.     hm2=3
  3484.     mons3=ポイズンガス
  3485.     hm3=1
  3486.     enc_pat=3
  3487.     encounter=32        // 1/32
  3488.     &jsr 黒十字
  3489.     Xsub=11
  3490.     &jsr mons_reset
  3491.     &on
  3492.     !o(1);［フレデリック城１１階］pc
  3493.  
  3494. #@0
  3495.     &if (%direc<0) {
  3496.         //&se 22
  3497.         &goto2 城１２Ｆ,@0,%down
  3498.     }
  3499.  
  3500. #@1
  3501.     &if (%direc<0) {
  3502.         //&se 22
  3503.         &goto2 城１０Ｆ,@1,%down
  3504.     }
  3505.  
  3506. #@49
  3507.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  3508.     &jsr タマ
  3509.     }
  3510.  
  3511.     &if (%direc>=0) {&&}
  3512.     &if (noencounter>0) {
  3513.         noencounter--
  3514.     } &else {
  3515.         &if (%rnd(encounter)!=1) {&&}
  3516.         &jsr 敵遭遇
  3517.     }
  3518.  
  3519.  
  3520.                                     
  3521. [城１２Ｆ]            //フレデリック城１２階
  3522.                                     
  3523.     //&mappal map\dark.PAL
  3524.     &map map\12F.MAP        //城１２Ｆ.MAP
  3525.     &jsr 城sound
  3526.     &if (event==5) {
  3527.         %mandef(1)={ 8,0,$00,%down,0 }
  3528.         %manpoint(1)={ 511,511 }
  3529.         %mandef(2)={ 8,0,$00,%down,0 }
  3530.         %manpoint(2)={ 511,511 }
  3531.     }
  3532.     mons1=バイパー            //monster set
  3533.     hm1=4
  3534.     mons2=メデューサ
  3535.     hm2=2
  3536.     mons3=ポイズンガス
  3537.     hm3=2
  3538.     enc_pat=3
  3539.     encounter=32        // 1/32
  3540.     &jsr 黒十字
  3541.     Xsub=11
  3542.     &jsr mons_reset
  3543.     &on
  3544.     !o(1);［フレデリック城１２階］pc
  3545.  
  3546. #@0
  3547.     &if (%direc<0) {
  3548.         &if ((event==12) and ((event0 and 2)!=0)) {
  3549.             &if ((event0 and 1)==0) {
  3550.                 !|(7);「|(0)、;もうすぐそこです、;
  3551.                 !早く行きましょう。」pc
  3552.                 !|(8);「そ、そうよ、|(0)。」pc
  3553.                 !|(0);「そうか、|(8)は、;ホットした顔してるぞ。」pc
  3554.                 !|(8);「そんなことないわよ、;早くハンナを助けよう。」pc
  3555.                 !|(0);「そうだな。」pc
  3556.                 &partymove 2,2,2
  3557.                 event0=event0 or 1
  3558.                 &&
  3559.             } &else {
  3560.                 !|(0);「こっちは、下行きだ、;
  3561.                 !行ってる場合じゃなかったな！」pc
  3562.                 !|(7);「ええ、そうです。」pc
  3563.                 &partymove 2,2,2
  3564.                 セシル--
  3565.                 ミーナ--
  3566.                 &&
  3567.             }
  3568.         }
  3569.         //&se 22
  3570.         &goto2 城１１Ｆ,@0,%down
  3571.     }
  3572.  
  3573. #@1
  3574.     &if (%direc<0) {
  3575.         &if (event==12) {
  3576. //            &partyset 0
  3577.             &partyset 0,8,7
  3578.         }
  3579.         //&se 22
  3580.         &goto2 城１３Ｆ,@0,%down
  3581.     }
  3582.  
  3583. #@2
  3584.     &if (%direc>=0) {
  3585.         &&
  3586.     }
  3587.     &if (event==5) {
  3588.         &if (%nowbgm!=10) {
  3589.             &bgm 10
  3590.         }
  3591.         !|(0);「なんだ、この血痕は！」pc
  3592.         !声;「フハハハハハハッ、;私の邪魔をする者は、;死んでもらう。」pc
  3593.         &partymove 8,8,8,8,8
  3594.         !|(0);「なにっ、お前はだれだ！」pc
  3595.         %manpoint(1)= { -1,20 }
  3596.         %manpoint(2)= { -1,20 }
  3597.         &on
  3598.         !|(0);「くっ、;ガーゴイルのおでましか。」pc
  3599.         &manmove 1, 2,2,2,4,4,4,2,2,2
  3600.         &manmove 2, 2,2,2,2,4,2,2
  3601.         !声;「しねっ！」pc
  3602.         Xsub=%nowbgm
  3603.         &bgm 0
  3604.         &battle $1000,11,ガーゴイル,1,ガーゴイル,1
  3605.         &jsr gold_Gover
  3606.         &bgm Xsub
  3607.         %manpoint(1)= { 511,511 }
  3608.         %manpoint(2)= { 511,511 }
  3609.         &on
  3610.         !|(0);「ふぅ、急ごう。p;この先が気になる。」pc
  3611.         event++            //event=6
  3612.         &&
  3613.     }
  3614.     &if (event==6) {
  3615.         !|(0);「戻ってる場合じゃないな。」pc
  3616.         &partymove 8,8,8
  3617.         &&
  3618.     }
  3619.     &if ((event==12) and ((event0 and 2)==0)) {
  3620.         !|(8);「な、なんだい、この血は？p;もしかして、これが、;犠牲者の・・・。」pc
  3621.         !|(7);「ええ、この上の階で・・・。」pc
  3622.         !|(0);「そういうことだ、行くぞ！」pc
  3623.         !|(8);「えっ、あっ、そうだよね。」pc
  3624.         event0=event0 or 2
  3625.     }
  3626.  
  3627. //#@3
  3628. //    &if (%nowbgm!=14) {
  3629. //        &bgm 14
  3630. //    }
  3631.  
  3632. #@40
  3633.     !|(0);「ここの泉には、;助けられたよ！」pc
  3634.     &if (%partyexist(7)!=0) {
  3635.         !|(7);「ほんとですね。」pc
  3636.     }
  3637.     &if (%partyexist(8)!=0) {
  3638.         !|(8);「でも、こんなところに;よく湧いてるわね。！」pc
  3639.     }
  3640.     &bgm %nowbgm
  3641. #@41
  3642.     &if (%direc>=0) {
  3643.         &jsr 黄金の泉
  3644.     }
  3645.  
  3646. #@47
  3647.     &if (%direc>=0) {
  3648.         &jsr garg_shop
  3649.     }
  3650.  
  3651. #@49
  3652.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  3653.     &jsr タマ
  3654.     }
  3655.  
  3656.     &if (%direc>=0) {&&}
  3657.     &if (noencounter>0) {
  3658.         noencounter--
  3659.     } &else {
  3660.         &if (%rnd(encounter)!=1) {&&}
  3661.         &jsr 敵遭遇
  3662.     }
  3663.  
  3664.  
  3665.                                     
  3666. [城１３Ｆ]            //フレデリック城１３階
  3667.                                     
  3668.     &ldef moveT=0
  3669.     //&mappal map\dark.PAL
  3670.     &map map\13F.MAP        //城１３Ｆ.MAP
  3671.     &if (ending!=0) {
  3672.         %mandef(1)={ 8,0,$40,%down,0 }
  3673.         %mandef(2)={ 8,0,$00,%up,0 }
  3674.         %mandef(3)={ 8,0,$00,%up,0 }
  3675.         %mandef(4)={ 8,0,$00,%up,0 }
  3676.         &on
  3677.         &partyspeed 2
  3678.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8        //from (105,51)
  3679.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8
  3680.         &partyspeed 1
  3681.         &manmove 3, -2
  3682.         &manmove 4, -2
  3683.         &manmove 2, -2
  3684.         &wait 150
  3685.         %manpoint(2)= { 511,511 }
  3686.         %manpoint(3)= { 511,511 }
  3687.         %manpoint(4)= { 511,511 }
  3688.         &on
  3689.         &partymove 8,8,8
  3690.         &wait 100
  3691.         &exec bin\sepia.x
  3692.         !　:　:　:　:ＰＣＭ　　　　　　　　　　:w
  3693.         !　　　　wＺＭＵＳＩＣw　　　　　　　:
  3694.         !　　　　wＶ．３　ｍｏｏｋw　　　　　:
  3695.         !　　　　w製作者の皆さんw　　　　　　:ww　:
  3696.         !効果音　　　　　　　　　　　:w
  3697.         !　　　　w宮崎 征宏wさん　　　　　　:
  3698.         &wait 300
  3699.         &jsr FADEOUT
  3700.         !c
  3701.         &wait 300
  3702.         &spppal map\darkall.PAL
  3703.         &partyset 0,7,10
  3704.         ending++        //ending=4
  3705.         &goto2 城１Ｆ,128,20,-%up
  3706.     }
  3707.     &if (event==6) {
  3708.         &if (%nowbgm!=10) {
  3709.             &bgm 10
  3710.         }
  3711.         %mandef(1)={ 8,0,$40,%down,0 }
  3712.         %mandef(2)={ 8,0,$00,%up,0 }
  3713.         %mandef(3)={ 8,0,$00,%up,0 }
  3714.         %mandef(4)={ 8,0,$00,%up,0 }
  3715.         %mandef(5)={ 8,0,$00,%up,0 }
  3716.         %manpoint(5)={ 511,511 }
  3717.         %mandef(6)={ 8,0,$00,%up,0 }
  3718.         %manpoint(6)={ 511,511 }
  3719.         encounter=1
  3720.     } &else {
  3721.         &jsr 城sound
  3722.         
  3723.         mons1=ウーズ                //monster set
  3724.         hm1=4
  3725.         mons2=レッドウーズ
  3726.         hm2=2
  3727.         enc_pat=2
  3728.         encounter=32        // 1/32
  3729.         &jsr 黒十字
  3730.         Xsub=11
  3731.         &jsr mons_reset
  3732.     }
  3733.     &if (event==12) {
  3734.         %mandef(1)= { 8,0,$80,%down,-1 }        //ハンナ
  3735.         %mandef(3)= { 8,0,$00,%up,0 }
  3736.     }
  3737.     Tsub=T城１３Ｆ                //宝セット
  3738.     Tbit=1
  3739.     &jsr 宝開閉？
  3740.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  3741.     &on
  3742.     !o(1);［フレデリック城１３階］pc
  3743.  
  3744.  
  3745.     &if (event==6) {
  3746.         !|(0);「何だ、この部屋は、;ひどいありさまだ。p;
  3747.         !ん？p;壁の向こうから声が聞こえる。」pc
  3748.         &partymove 2,2,2,2,6,6
  3749.         !ガーゴイル;「お前は、この鉄の処女で、;一滴残らず血を絞り出してやる。p;
  3750.         !早く入れ！」pc
  3751.         !若い女性;「ほんとうに、;わたしが犠牲になれば、p;
  3752.         !他の人の命は;助けてくれるのですね。」pc
  3753.         !ガーゴイル;「ん、そんな約束したっけ。p;
  3754.         !心配するな、;後で会わせてやるよ。;けっwけっwけっwけ！」pc
  3755.         !若い女性;「えっ、それじゃ、;だましたのね。」pc
  3756.         !ガーゴイル;「ええぃ、うるさいな、;さっさと入れ！」pc
  3757.         &manmove 3, 8,8
  3758.         &manmove 2, 8,8
  3759.         !若い女性;「きゃぁ～～～～！ww」c
  3760.         &manmove 4, 8,8
  3761.         &partyspeed 2
  3762.         &partymove -4,-6,-4,-6,-4,-2
  3763.         //&partyspeed 1
  3764.         !|(0);「早く行かないと、;やばそうだな。」pc
  3765.         event0=0
  3766.     }
  3767.     &if (event==12) {
  3768.         &partymove 2,2,2,2,2,2
  3769.         !|(8);「なっ、なんだい、ここは、;すごい、血の海だね。p;
  3770.         !うっ、それにすごい臭いだね。」pc
  3771.         &partymove -8
  3772.         !|(0);「いやなら、;ここに残ってもいいぞ。」pc
  3773.         !|(7);「わたしは、行きます！」pc
  3774.         !|(8);「ちょっ、ちょっと、p;あたし一人で;ここにいろって言うの。p;
  3775.         !じょ、冗談じゃないわよ、;あたしも行くわよ！」pc
  3776.     }
  3777.  
  3778. #10                    //宝箱　大
  3779.     Tbit=1
  3780.     &jsr 宝開閉？
  3781.     &if (Tno==0) {
  3782.         &if (%haveitem(魔導士の鍵)==1) {
  3783.             &if ((Tsub and 2)==0) {
  3784.                 &jsr pcm_unlock
  3785.                 !|(0);「おっ、開いたぞ！」pc
  3786.                 !|(7);「ほんとう。」pc
  3787.                 !|(8);「早く、見てみようよ！」pc
  3788.                 &exec bin\ZMmask.x 9
  3789.                 &pcm 6
  3790.                 &wait 150
  3791.                 &exec bin\ZMmask.x
  3792.                 %mandef(10) = { 15,0,$89,2,-1 }
  3793.                 &on
  3794.                 &if ((T城Ｂ３ and 288)==0) {
  3795.                     !|(0);「なんだ、これだけか。」pc
  3796.                     !|(7);「そうみたいですけど。」pc
  3797.                     !|(8);「なんだい、これ」pc
  3798.                     !|(11);「何だ、お前達、;知らないのか。」pc
  3799.                     !|(0);「知らないが、;|(11)知ってるのか。」pc
  3800.                     !|(11);「ああ、これがあれば・w・w・w・。p;
  3801.                     !いや、やめておこう。」pc
  3802.                     !|(0);「なぜ、教えてくれないんだ。」pc
  3803.                     !|(11);「地下にある変な宝を、;調べればわかるさ。」pc
  3804.                     !|(8);「教えてくれてもいいのにね。」pc
  3805.                     !|(0);「まっ、いいさ。;行けば分かるさ。」pc
  3806.                 } &else {
  3807.                     !|(0);「これだな、黒いディスクは。」pc
  3808.                 }
  3809.                 !|(11);「そういう事だ。」pc
  3810.                 Tsub=Tsub or 2
  3811.             }
  3812.             Tno=(黒いディスク３)
  3813.             &jsr 宝ゲット
  3814.             T城１３Ｆ=Tsub
  3815.             &jsr 宝開閉？
  3816.             %mandef(10) = { 15,0,$88+Tno,2,-1 }
  3817.             &on
  3818.             &&
  3819.         } 
  3820.         &if (moveT==8) {
  3821.             &if (%partyexist(7)==1) {
  3822.                 &if (%partyexist(8)==1) {
  3823.                     !|(8);「ええぃ、うっとおしいわね。」pc
  3824.                 }
  3825.                 !|(7);「どうして逃げるのかな。」pc
  3826.                 !|(0);「さぁな。;何かの魔法が、;かけられているようだ。p;
  3827.                 !行こう、何度やっても同じだ。」pc
  3828.                 !|(7);「ええ。」
  3829.             } &else {
  3830.                 !|(0);「何だ、この宝箱は！」pc
  3831.             }
  3832.         }
  3833.         &if ((moveT and 3)==0) {
  3834.             &manmove 10, 2,2,2,2
  3835.             &jmp @f
  3836.         }
  3837.         &if ((moveT and 3)==1) {
  3838.             &manmove 10, 4,4,4,4
  3839.             &jmp @f
  3840.         }
  3841.         &if ((moveT and 3)==2) {
  3842.             &manmove 10, 8,8,8,8
  3843.             &jmp @f
  3844.         }
  3845.         &if ((moveT and 3)==3) {
  3846.             &manmove 10, 6,6,6,6
  3847. &label
  3848.             moveT++
  3849.             &&
  3850.         }
  3851.     }
  3852.     !|(0);「中身がなくなると、;もう動かないようだな。」pc
  3853.  
  3854. #@0
  3855.     &if (%direc>=0) {
  3856.         &&
  3857.     }
  3858.     &if (event==6) {
  3859.         !|(0);「何してんだ俺は、;早く行かないと、;彼女が・・・。」pc
  3860.         &partymove 2,2
  3861.         &&
  3862.     }
  3863.     &if (event==12) {
  3864.         !|(7);「|(0)！;戻ってる時じゃないと;思いますけど。」pc
  3865.         !|(8);「そうだよ、;なにやってんだ|(0)！」pc
  3866.         !|(0);「あっ、すまない。;そうだったな。」pc
  3867.         セシル--
  3868.         ミーナ--
  3869.         &&
  3870.     }
  3871.     //&se 22
  3872.     &goto2 城１２Ｆ,@1,%down
  3873.  
  3874.  
  3875. #@1
  3876.     &if (%direc>=0) {
  3877.         &if ((cecil_say and 1)==0) {
  3878.             cecil_say=cecil_say or 1
  3879.             !|(0);「鉄の処女か。p;あの女吸血鬼といわれた;
  3880.             !エリザベート・バートリーが、;
  3881.             !自らの若さを保つため、p;
  3882.             !多くの若き村の女性達の血を;絞り出すために;
  3883.             !使っていたやつだな。」pc
  3884.             !|(7);「|(0)！;わたし恐いわ。p;もう少しで、わたしも・・・。」pc
  3885.             !|(0);「大丈夫だ、;もうそんな目には、;あわせない。」pc
  3886.             !|(7);「ありがとうww|(0)。」pc
  3887.             セシル+=10
  3888.             &if (%partyexist(8)==1) {
  3889.                 !|(8);「は～、終わったかい。」pc
  3890.                 !|(7);「えっ！」pc
  3891.                 !|(0);「ん、さっ、行くか。」pc
  3892.                 !|(8);「あっ、ごまかしてるな。」pc
  3893.                 !|(0);「何言ってんだ、行くぞ！」pc
  3894.                 !|(8);「向きになってるとこが;もっとあやしいねぇ。」pc
  3895.                 !|(7);「もう、|(8)さん。」pc
  3896.                 !|(8);「さっ、いこいこ」pc
  3897.                 !|(0);「ふぅ～、疲れるな。」pc
  3898.                 ミーナ-=10
  3899.             }
  3900.             &&
  3901.         }
  3902.         !|(0);「もう、;こんな所に用はないな。」pc
  3903.         !|(7);「ええ、早くここ出ましょ。」pc
  3904.         &if (%partyexist(8)==1) {
  3905.             !|(8);「そうそう、こんなとこ、;さっさと出よう。」pc
  3906.         }
  3907.     }
  3908.  
  3909. #@9
  3910.     &if (%direc>=0) {
  3911.         &&
  3912.     }
  3913.     &if (event==6) {
  3914.         Xsub=105
  3915.         &partyspeed 2
  3916.         &jsr Xmove
  3917.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  3918.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8
  3919.         //&partyspeed 1
  3920.         !|(0);「おいっ、はなれろ！」pc
  3921.         !ガーゴイル;「ん、なんだ。」pc
  3922.         &manmove 3, -2
  3923.         !ガーゴイル;「な、w;なんでお前がここにいるんだ。」pc
  3924.         &manmove 4, -2
  3925.         &manmove 2, -2
  3926.         !ガーゴイル;「ちっ、いくぞっ」pc
  3927.         !ガーゴイル達;「ぐおぅ！」pc
  3928.         &bgm 0
  3929.         &battle $1000,11,ガーゴイル,1,ガーゴイル,1,ガーゴイル,1
  3930.         &jsr gold_Gover
  3931.         !ガーゴイル;「こ、wこれで・w・;終わ・w・りと・w・w・;思うなよ！」pc
  3932.         %manpoint(2)= { 511,511 }
  3933.         %manpoint(3)= { 511,511 }
  3934.         %manpoint(4)= { 511,511 }
  3935.         &on
  3936.         &bgm 8
  3937.         &partymove 8,8,8
  3938.         %selectlist= { 他の者はどうした,君、大丈夫か }
  3939.         !o(0)|(0);「おいっ、
  3940.         &if (%select==1) {
  3941.             !c若い女性;「ええ、ありがとうございます。p;わたしは、大丈夫です。p;
  3942.             !あ、あの、あなたは？」pc
  3943.             !|(0);「俺か、p俺は、大丈夫だ。p;
  3944.             !それより、;あんた達を救助しに来た。p;
  3945.             !他の者はどうしたんだ。」pc
  3946.             セシル+=50
  3947.         }
  3948.         !c若い女性;「地下牢に閉じ込められていると;思います。p;わたしも、
  3949.         !そこからここに、;つれてこられましたから。」pc
  3950.         !|(0);「そうか。」pc
  3951.         !若い女性;「あの、ww;あなたの名前は？」pc
  3952.         !|(0);「ん。」pc
  3953.         !若い女性;「あっ、いえ、別に。」pc
  3954.         !|(0);「ああ、かまわない。p;俺の名は、;|(0)・カサンドラ。」pc
  3955.         !若い女性;「えっ、p;あなたがあのデビルバスターの;|(0)さん！」pc
  3956.         !|(0);「ああ、他人はそう呼ぶがな。p;ところで、君の名は？」pc
  3957.         !若い女性;「わたしは、pc
  3958.         &bgm 6
  3959.         &inputpartyname 7
  3960.         &bgm 8
  3961.         !|(7);「わたしは、|(7)です。」pc
  3962.         !|(0);「|(7)か、;どこかで聞いたような名だな。p;
  3963.         !さて、ここに長居は無用だ！;行こうか。」pc
  3964.         !|(7);「ええ、|(0)さん。」pc
  3965.         !|(0);「さんづけは;よしてくれないか。」pc
  3966.         !|(7);「えっ、ええ。p;でもどうして。」pc
  3967.         !|(0);「君は、俺を呼び捨てにすれば;それでいい！p;さ、行こうか。」pc
  3968.         &partymove 2,2,2
  3969.         !o(1)|(7);「あっ、;ちょっと待ってください。」pc
  3970.         &partymove -8
  3971.         !o(1)|(0);「どうした？」pc
  3972.         !o(1)|(7);「ほら、;見て|(0)さん、これ。p;・・w・・wあっ、ごめんなさい。p;
  3973.         !さんをつけたら;ダメでしたよね。」pc
  3974.         !o(1)|(0);「盾の模様のある鍵だな。」pc
  3975.         !o(1)|(0)は、:盾の模様が描かれた:銀の鍵を手に入れた。pc
  3976.         &jsr disposeofitem
  3977.         &partyitemin (盾の鍵)
  3978.         !o(1)|(7);「これ、どこの鍵かしら。」pc
  3979.         !o(1)|(0);「さぁな、行くぞ！」pc
  3980.         !o(1)|(7);「えっ、はい。」pc
  3981.         &partymove -2
  3982.         &partyset 0,7
  3983.         %manpoint(1)= { 511,511 }
  3984.         &on
  3985.         event++            //event=7
  3986.         &&
  3987.     }
  3988.     &if (event==12) {
  3989.         %mandef(1) = { 8,0,$8a,%down,-1 }
  3990.         %manpoint(3)= { 767,767 }
  3991.         &on
  3992.         &bgm 10
  3993.         !|(0);「なにっ！」pc
  3994.         !|(8);「そ、そんなことって。」pc
  3995.         !|(7);「ハンナさん！p;なぜ！w　どうして！」pc
  3996.         Xsub=105
  3997.         &partyspeed 2
  3998.         &jsr Xmove
  3999. //        &partyset 0
  4000.         &partyset 0,7,8
  4001.         &on
  4002.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  4003.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8
  4004.         &partymove 6,6,8,8,8,8,8,8,-4
  4005.         //&partyspeed 1
  4006.         &on
  4007.         !|(0);「・w・w・w・w・w・w・w・。;ダメだ、息がない。」pc
  4008.         !|(8);「ひっひどい、ひどすぎる。」pc
  4009.         !|(7);「ハンナさん・・・・・。」pc
  4010.         !|(0);「くそっ！」pc
  4011.         &partymove 4            //ハンナを抱きあげる（うまく見えるかな）
  4012.         &manmove 1, 8
  4013.         !|(0);「城の外に出してあげよう。;ここじゃ、;ゆっくり眠れないだろ。」pc
  4014.         !|(7);「・・・・・|(0)。」pc
  4015.         !|(8);「そうだよね、その方が、;ハンナのためだよね。」pc
  4016.         !|(7);「ええ。」pc
  4017.         !|(0);「行こうか。」pc
  4018.         &complete
  4019.         &bgm -1
  4020.         w_speed=20
  4021.         &jsr FADEOUT
  4022.         &partyset 0
  4023.         event++                //event=13
  4024.         &goto2 シンシア墓地,@2,%up
  4025.     }
  4026.  
  4027.  
  4028. #@10
  4029.     &if (%direc>=0) {
  4030.         &&
  4031.     }
  4032.     &if ((event==12) and (%direc==-6)) {
  4033.         !|(8);「戻ってどうするんだい！」pc
  4034.         !|(7);「そうですよ！」pc
  4035.         &partymove 4,4,4,4
  4036.         &&
  4037.     }
  4038.     &if (event!=6) {
  4039.         &&
  4040.     }
  4041.     &if ((event0==0) or (event0==4)) {
  4042.         event0++
  4043.         %manpoint(5)={ %px-7,%py-1 }
  4044.         %manpoint(6)={ %px-7,%py+1 }
  4045.         &on
  4046.         &manmove 5, -6
  4047.         &manmove 6, -6
  4048.         !ガーゴイル;「ここからは通さん！」pc
  4049.         &manmove 5 ,6,6,6,6
  4050.         &manmove 6 ,6,6,6,6
  4051.         Xsub=%nowbgm
  4052.         &bgm 0
  4053.         &battle $1000,11,ガーゴイル,1,ガーゴイル,1
  4054.         &jsr gold_Gover
  4055.         &bgm Xsub
  4056.         %manpoint(5)= { 511,511 }
  4057.         %manpoint(6)= { 511,511 }
  4058.         &on
  4059.         !|(0);「急ごう！」pc
  4060.         &partymove 4,4,4
  4061.         &&
  4062.     }
  4063.     !|(0);「俺は、こっち行って;どうするつもりだったんだ！p;
  4064.     !行く方向が逆だぞ！」pc
  4065.     &partymove 4,4,4,4
  4066.  
  4067. #@11
  4068.     &if (%direc>=0) {
  4069.         &&
  4070.     }
  4071.     &if ((event==12) and (%direc==-8)) {
  4072.         !|(8);「|(0)！;なにしてるんだい！」pc
  4073.         !|(7);「そうですよ！;早くしないと！」pc
  4074.         &partymove 2,2,2,2
  4075.         &&
  4076.     }
  4077.     &if (event!=6) {
  4078.         &&
  4079.     }
  4080.     &if ((event0==1) or (event0==3) or (event0==5)) {
  4081.         event0++
  4082.         %manpoint(5)={ %px-1,%py+8 }
  4083.         %manpoint(6)={ %px+1,%py+8 }
  4084.         &on
  4085.         !ガーゴイル;「おまえを殺す！」pc
  4086.         &manmove 5 ,8,8,8,8
  4087.         &manmove 6 ,8,8,8,8
  4088.         Xsub=%nowbgm
  4089.         &bgm 0
  4090.         &battle $1000,11,ガーゴイル,1,ガーゴイル,1
  4091.         &jsr gold_Gover
  4092.         &bgm Xsub
  4093.         %manpoint(5)= { 511,511 }
  4094.         %manpoint(6)= { 511,511 }
  4095.         &on
  4096.         !|(0);「行くぞ！」pc
  4097.         &partymove 2,2,2
  4098.         &&
  4099.     }
  4100.     !|(0);「ちっ、こんな所で、;迷うわけにはいかない。」pc
  4101.     &partymove 2,2,2,2
  4102.  
  4103. #@12
  4104.     &if (%direc>=0) {
  4105.         &&
  4106.     }
  4107.     &if ((event==12) and (%direc==-4)) {
  4108.         !|(8);「そっちじゃないだろ！」pc
  4109.         !|(7);「そうですよ！;|(0)！」pc
  4110.         &partymove 6,6,6,6
  4111.         &&
  4112.     }
  4113.     &if (event!=6) {
  4114.         &&
  4115.     }
  4116.     &if ((event0==2) or (event0==6)) {
  4117.         event0++
  4118.         %manpoint(5)={ %px+7,%py-1 }
  4119.         %manpoint(6)={ %px+7,%py+1 }
  4120.         &on
  4121.         &manmove 5, -4
  4122.         &manmove 6, -4
  4123.         !ガーゴイル;「邪魔はさせん！」pc
  4124.         &manmove 5 ,4,4,4,4
  4125.         &manmove 6 ,4,4,4,4
  4126.         Xsub=%nowbgm
  4127.         &bgm 0
  4128.         &battle $1000,11,ガーゴイル,1,ガーゴイル,1
  4129.         &jsr gold_Gover
  4130.         &bgm Xsub
  4131.         %manpoint(5)= { 511,511 }
  4132.         %manpoint(6)= { 511,511 }
  4133.         &on
  4134.         !|(0);「この先か！」pc
  4135.         &partymove 6,6,6
  4136.         &&
  4137.     }
  4138.     !|(0);「急がないと、;彼女が危ない！」pc
  4139.     &partymove 6,6,6,6
  4140.  
  4141.  
  4142. #@49
  4143.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  4144.     &jsr タマ
  4145.     }
  4146.  
  4147.     &if (%direc>=0) {&&}
  4148.     &if (noencounter>0) {
  4149.         noencounter--
  4150.     } &else {
  4151.         &if (%rnd(encounter)!=1) {&&}
  4152.         &jsr 敵遭遇
  4153.     }
  4154.  
  4155.  
  4156.                                     
  4157. [城Ｂ１]            //フレデリック城地下１階
  4158.                                     
  4159.     //&mappal map\dark.PAL
  4160.     &map map\B1.MAP        //城Ｂ１.MAP
  4161.     &if (ending!=0) {
  4162.         %bcirclesize=30
  4163.         %mandef(1) = { 11,0,$60,2,0 }        //ミーナ
  4164.         &blackcircle 1
  4165.         &on
  4166.         &partymove 2,2,2,2,2,2,-8
  4167.         &wait 200
  4168.         %bcirclesize=128
  4169.         &blackcircle 1
  4170.         &on
  4171.         &wait 150
  4172.         &partymove -2
  4173.         &manmove 1, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  4174.         &wait 300
  4175.         &exec bin\sepia.x
  4176.         !　:　:　:　:ＭＡＰw　　　　　　　　　　:
  4177.         !　　　　wＳＪＯＭw　　　　　　　:
  4178.         !　w:ＭＡＰＰＣＧw　　　　　　　:
  4179.         !　　　　w鈴木　浩wさん　　　　　:
  4180.         !　　　　wＳＪＯＭw　　　　　　　:
  4181.         &wait 300
  4182.         &jsr FADEOUT
  4183.         !c
  4184.         &wait 300
  4185.         &spppal map\darkall.PAL
  4186.         &partyset 0
  4187.         ending++        //ending=6
  4188.         &goto2 シンシア墓地,@2,%up
  4189.     }
  4190.     &if (%nowbgm!=15) {
  4191.         &bgm 15
  4192.     }
  4193.     mons1=アースハンド                //monster set
  4194.     hm1=4
  4195.     mons2=オーク
  4196.     hm2=2
  4197.     mons3=エビルアイ
  4198.     hm3=2
  4199.     mons4=スケルトン
  4200.     enc_pat=4
  4201.     encounter=40        // 1/40
  4202.     &jsr 黒十字
  4203.  
  4204.  
  4205.     Tsub=T城Ｂ１                //宝セット
  4206.     Tbit=1
  4207.     &jsr 宝開閉？
  4208.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  4209.     Tbit=4
  4210.     &jsr 宝開閉？
  4211.     %mandef(16) = { 15,0,$84+Tno,2,-1 }
  4212.     Tbit=8
  4213.     &jsr 宝開閉？
  4214.     %mandef(17) = { 15,0,$86+Tno,2,-1 }
  4215.     Tbit=16
  4216.     &jsr 宝開閉？
  4217.     %mandef(11) = { 15,0,$86+Tno,2,-1 }
  4218.     %mandef(12) = { 15,0,$86+Tno,2,-1 }
  4219.     %mandef(13) = { 15,0,$86+Tno,2,-1 }
  4220.     %mandef(14) = { 15,0,$86+Tno,2,-1 }
  4221.     %mandef(15) = { 15,0,$86+Tno,2,-1 }
  4222.     Tbit=32
  4223.     &jsr 宝開閉？
  4224.     %mandef(18) = { 15,0,$86+Tno,2,-1 }
  4225.     Tbit=64
  4226.     &jsr 宝開閉？
  4227.     %mandef(19) = { 15,0,$86+Tno,2,-1 }
  4228.     %manpoint(19)={ 240,11 }
  4229.  
  4230.     &if (event==11) {
  4231.         %bcirclesize=30
  4232.         %mandef(1) = { 11,0,$60,2,0 }        //ミーナ
  4233.         %manpoint(1) = { 250,34 }
  4234.         &blackcircle 1
  4235.     } &else {
  4236.         %bcirclesize=128
  4237.         &blackcircle 1
  4238.     }
  4239.     &on
  4240.     !o(1);［フレデリック城地下１階］pc
  4241.  
  4242.  
  4243.     &if (event==11) {
  4244.         &partyspeed 1
  4245.         &partymove 2,2,2,2,2,2
  4246.         !|(7);「きゃっ、;
  4247.         &partymove -8,-8,-8,-8
  4248.         !真っ暗で、なにも見えない。p;
  4249.         !こんなに暗いと、;中に入れないですね。」pc
  4250.         !|(0);「心配いらないさ、;フォライト！！」pc
  4251.         %bcirclesize=128
  4252.         //&blackcircle 0
  4253.         &on
  4254.         &partymove -8,-8,-8,-8,-8
  4255.         !|(0);「こういう所によく入るからな、;
  4256.         !明かりの魔法ぐらいは;使えないとな。」pc
  4257.         !|(7);「うわぁ～、きれい！」pc
  4258.         !|(0);「はははは、wwこの光の玉を見て、;そう言ったのは君が初めてだ。」pc
  4259.         !|(7);「ねぇ|(0)、;わたしw・w・w・wあなたがw・w・w・。」pc
  4260.         &partymove -2
  4261.         &bgm -1
  4262.         !|(0);「しっ、何かこっちに来る！」pc
  4263.         &manmove 1, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  4264.         !女性;「|(7)、;あんた無事だったんだね。」pc
  4265.         &bgm 8
  4266.         !|(7);「えっ、ええ、;あなたも無事でよかったです。」pc
  4267.         !女性;「ところで|(7)、;そいつはだれだい。」pc
  4268.         !|(7);「わたしを助けてくれた人なの、p;名前は、」pc
  4269.         !|(0);「|(0)・カサンドラ！」pc
  4270.         !女性;「ふ～ん、あんたがね～、;|(7)を助けたってね～。p;
  4271.         &manmove 1, 8
  4272.         !ところで、こいつは;当てになるのかい、|(7)。」pc
  4273.         !|(7);「ええ、もちろんです！」pc
  4274.         !|(0);「ところで、君の名は？」pc
  4275.         !女性;「あたし、wあたしは、;|(8)。pよろしくね。」pc
  4276.         !|(0);「そうか、君が、;|(8)・アレンドラか。」pc
  4277.         !|(8);「なんであんたが、あたしの名前;知ってるんだい！」pc
  4278.         !|(0);「君の親父が俺に;君を助けてくれと、;頼んできたからな。」pc
  4279.         !|(8);「そう・w・w・w・。p;あっ、それより、;ハンナが大変なんだ！p;
  4280.         !|(7)が連れてかれた後、;ハンナも連れてかれて、;急がないと。」pc
  4281.         &bgm 14
  4282.         !|(7);「えっ、ハンナさんが！p;|(0)、お願い、;ハンナさんを助けて。」pc
  4283.         !o(0)|(0);「ん～、
  4284.         %selectlist= { そうだな、助けよう,いや、もうダメだろう }
  4285.         &switch %select {
  4286.         &case 0:
  4287.             !c|(7);「うん、ありがとう、;急ぎましょう。」pc
  4288.             !|(8);「そうだよね、;あんたなかなかいい奴だね。」pc
  4289.             !|(0);「そうでもないさ、;俺は救助しに来たんだからな、;
  4290.             !当然だろ。p;
  4291.             セシル+=30
  4292.             ミーナ+=30
  4293.             &break
  4294.         &case 1:
  4295.             !c|(8);「なんだい、こいつは！p
  4296.             !まだ、;ダメだと決まったわけじゃ;ないだろ」pc
  4297.             !|(7);「わたし、まだ、;無事だって信じてる。」pc
  4298.             !|(0);「仕方ないな。行くとするか。p;
  4299.             セシル-=50
  4300.             ミーナ-=50
  4301.             &break
  4302.         &default:
  4303.             !ん～、・w・w・w・。」pc
  4304.             !|(8);「おいっ、;悩んでる場合じゃないだろ！」pc
  4305.             !|(7);「|(0)、早く行かないと。」pc
  4306.             !|(0);「そうだな、急ごう！p;
  4307.         }
  4308.         !ところで、;君はどうやって逃げたんだ。」pc
  4309.         !|(8);「えっ、wそれが、;w分からないんだ。」pc
  4310.         !|(0);「分からない！;どういう事だ！」pc
  4311.         !|(8);「ハンナが;連れてかれようとした時、;あたしは、抵抗したんだ。p;
  4312.         !それから、;何があったのか分からないけど、;急に気を失って、p;
  4313.         !気が付いたら、;この近くに倒れてたんだ。」pc
  4314.         !|(0);「その話本当か、;信用できないな。」pc
  4315.         !|(8);「本当だって！w信じてよね。」pc
  4316.         !|(7);「|(8)さんは、;嘘をつく様な人じゃないです。」pc
  4317.         !|(0);「ま、無事だったからいいか。」pc
  4318.         !|(8);「そうそう、それより急ご。p;どうやら、;|(7)と同じように、;
  4319.         !城の上の方に;連れてかれたみたいね。」pc
  4320.         !|(7);「あの、わたしが殺されそうに;なった場所ですね、きっと。」pc
  4321.         !|(0);「よしっ、行こう」pc
  4322.         &partymove 2,2,8,8,8,8,8,8
  4323.         %manpoint(1) = { 511,511 }
  4324.         &partyset 0,7,8
  4325.         &partyspeed 2
  4326.         &on
  4327.         &bgm -1
  4328.         &partymove 8,8
  4329.         event++                //event=12
  4330.         event0=0
  4331.         &goto2 城１Ｆ,@11,%down
  4332.     }
  4333.  
  4334.  
  4335.  
  4336. #10                    //宝箱　大
  4337.     Tbit=1
  4338.     &jsr 宝開閉？
  4339.     &if (Tno!=0) {
  4340.         !|(8);「もう何もないわね。」pc
  4341.         &&
  4342.     }
  4343.     !|(0);「えらい物が入ってそうだな。」pc
  4344.     !|(8);「ねぇ、早く見てみようよ。」pc
  4345.     &jsr pcm_treasure
  4346.     %mandef(10) = { 15,0,$89,2,-1 }
  4347.     &on
  4348.     !|(0);「なんだ、これは？」pc
  4349.     !|(7);「何かしら、わたし、;こんなの見たことないです。」pc
  4350.     !|(0);「これは、楽器だろ、たぶん。」pc
  4351.     !|(8);「はwはwはwはっ。p;あんた達、;ほんとに知らないんだね。」pc
  4352.     !|(7);「|(8)さん、;知ってるのですか？。」pc
  4353.     !|(8);「あたしは、こう見えても、;商人なんだから！」pc
  4354.     !|(0);「本当に知ってるのか、;だったら何に使うものなんだ！」pc
  4355.     !|(8);「これはね、東洋に伝わる計算;するための道具なんだって。」pc
  4356.     !|(7);「そうなんですか。;わたし、初めて聞きました。」pc
  4357.     !|(0);「ところで、;どうやって使うんだ。」pc
  4358.     !|(8);「それがさ～、知らないんだ。;でも、これ、私がもらうよ。」pc
  4359.     !|(0);「まぁ、いいが。p;使い方を知らないなら持ってても;仕方ないと思うが。」pc
  4360.     !|(8);「いいのいいの。p;いざとなったら、振り回して;武器にでもするから。」pc
  4361.     !|(0);「好きにすればいい。」pc
  4362.     !|(7);「ふふふふふ。」pc
  4363.     !|(8);「なんだよ、別にいいでしょ！」pc
  4364.     &if (%partyexist(11)==1) {
  4365.         !|(11);「終わったか。何だったら、;私が使い方を教えようか。」pc
  4366.         !|(8);「えっ、|(11)、;あんた知ってるのかい？」pc
  4367.         !|(11);「もちろんだ！」pc
  4368.         !|(7);「|(11)さんって;物知りなんですね。p;わたし、関心しました。」pc
  4369.         !|(8);「じゃぁ、じゃぁ、;教えて、教えて！」pc
  4370.         !|(0);「おいおい、そういうことは、;後にしてくれないか。」pc
  4371.         !|(8);「分かったわよ。p;コソコソ;
  4372.         !（ねぇ、|(11)、;後で本当に教えてよ！）」pc
  4373.         !|(11);「そうだな、いいだろう。」pc
  4374.     }
  4375.     Tno=(そろばん)
  4376.     &jsr 宝ゲット
  4377.     T城Ｂ１=Tsub
  4378.     &jsr 宝開閉？
  4379.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  4380.     &if (Tno==1) {
  4381.         ミーナ+=20
  4382.     }
  4383.     &on
  4384.  
  4385.  
  4386.  
  4387. #11                //中宝
  4388.     Tbit=16
  4389.     &if ((Tsub and Tbit)!=0) {
  4390.         !|(0);「どれも、カラだな。」pc
  4391.         !|(7);「ほんとうですね。」pc
  4392.         &&
  4393.     }
  4394.     &jsr pcm_treasure
  4395.     %mandef(%manno)= { 15,0,$87,2,-1 }
  4396.     &on
  4397.     &switch extraT {
  4398.     &case 0:
  4399.         !|(0);「カラっぽだな！」pc
  4400.         !|(8);「そうみたいだね。」pc
  4401.         !|(7);「他のも、見てみましょう。」pc
  4402.         &break
  4403.     &case 1:
  4404.         !|(0);「また、カラか！」pc
  4405.         !|(7);「ほんと？w;見せてください・w・w・w・、;ほんとですね。」pc
  4406.         &break
  4407.     &case 2:
  4408.         !|(0);「おいっ、カラじゃないか！」pc
  4409.         !|(8);「もしかして、;何もないんじゃない。」pc
  4410.         !|(7);「もう少し、頑張りましょう。」pc
  4411.         &break
  4412.     &case 3:
  4413.         !|(0);「おいっ、|(11)！;カラじゃないか！」pc
  4414.         !|(8);「またカラなのかい！」pc
  4415.         !|(11);「もう根をあげたのか、;|(0)！」pc
  4416.         !|(0);「分かったよ、次に行こうか。」pc
  4417.         &break
  4418.     &case 4:
  4419.         !|(0);「ふぅ～！」pc
  4420.         !|(7);「どうしたの、wもしかして、」pc
  4421.         !|(0);「ああ、カラっぽだ。」pc
  4422.         !|(8);「またかい！」pc
  4423.         !|(0);「こうなったら、意地だな！」pc
  4424.         &break
  4425.     &case 5:
  4426.         !|(0);「カラ！」pc
  4427.         &break
  4428.     &case 6:
  4429.         !|(0);「これもカラ！」pc
  4430.         &break
  4431.     &default:
  4432.         !|(0);「おっ！;やっと見つけたぞ！」pc
  4433.         Tno=(黒いディスク２)
  4434.         &jsr 宝ゲット
  4435.         &if ((Tsub and Tbit)!=0) {
  4436.             &if ((T城Ｂ３ and 288)==0) {
  4437.                 !|(11);「よくやったな。」pc
  4438.                 !|(0);「ところで、;なんなんだこれは！」pc
  4439.                 !|(11);「秘密だ！;自分で、見つけることだな！」pc
  4440.                 !|(8);「やっぱり、あんたは、;ケチだよね！」pc
  4441.             } &else {
  4442.                 !|(0);「|(11)、;これのことだな。」pc
  4443.                 !|(11);「そういうことだ。」pc
  4444.             }
  4445.         }
  4446.         T城Ｂ１=Tsub
  4447.     }
  4448.     extraT++
  4449.     &jsr 宝開閉？
  4450.     %mandef(11) = { 15,0,$86+Tno,2,-1 }
  4451.     %mandef(12) = { 15,0,$86+Tno,2,-1 }
  4452.     %mandef(13) = { 15,0,$86+Tno,2,-1 }
  4453.     %mandef(14) = { 15,0,$86+Tno,2,-1 }
  4454.     %mandef(15) = { 15,0,$86+Tno,2,-1 }
  4455.     &on
  4456.  
  4457.  
  4458.  
  4459. #12
  4460.     &link 11
  4461.  
  4462. #13
  4463.     &link 11
  4464.  
  4465. #14
  4466.     &link 11
  4467.  
  4468. #15
  4469.     &link 11
  4470.  
  4471. #16                //小宝
  4472.     Tbit=4
  4473.     &jsr 宝開閉？
  4474.     &if (Tno!=0) {
  4475.         !|(0);「もう何も発見せず！」pc
  4476.         &&
  4477.     }
  4478.     !|(0);「宝箱発見！」pc
  4479.     &jsr pcm_treasure
  4480.     %mandef(16) = { 15,0,$85,2,-1 }
  4481.     &on
  4482.     !|(0);「おっ、薬発見！」pc
  4483.     !|(8);「こんなんで、;喜んでも仕方ないだろ！」pc
  4484.     Tno=(エクスポーション)
  4485.     &jsr 宝ゲット
  4486.     T城Ｂ１=Tsub
  4487.     &jsr 宝開閉？
  4488.     %mandef(16) = { 15,0,$84+Tno,2,-1 }
  4489.     &on
  4490.  
  4491.  
  4492. #17                //中宝
  4493.     Tbit=8
  4494.     &jsr 宝開閉？
  4495.     &if (Tno!=0) {
  4496.         !|(7);「もう何もないですね。」pc
  4497.         !|(0);「そうだな、;いつまで覗いてもムダだな。」pc
  4498.         &&
  4499.     }
  4500.     &jsr pcm_treasure
  4501.     %mandef(17) = { 15,0,$87,2,-1 }
  4502.     &on
  4503.     !|(0);「いい物が入っているぞ！」pc
  4504.     !|(8);「どれどれ！;ほんとだね！」pc
  4505.     Tno=(銀の腕輪)
  4506.     &jsr 宝ゲット
  4507.     T城Ｂ１=Tsub
  4508.     &jsr 宝開閉？
  4509.     %mandef(10) = { 15,0,$86+Tno,2,-1 }
  4510.     &on
  4511.  
  4512.  
  4513. #18                //中宝
  4514.     Tbit=32
  4515.     &jsr 宝開閉？
  4516.     &if (Tno!=0) {
  4517.         !|(8);「もう何もないって。」pc
  4518.         !|(0);「そうだな。」pc
  4519.         &&
  4520.     }
  4521.     &jsr pcm_treasure
  4522.     %mandef(18) = { 15,0,$87,2,-1 }
  4523.     &on
  4524.     !|(0);「これは、役に立ちそうだ！」pc
  4525.     !|(7);「ほんとですね！」pc
  4526.     Tno=(銀の腕輪)
  4527.     &jsr 宝ゲット
  4528.     T城Ｂ１=Tsub
  4529.     &jsr 宝開閉？
  4530.     %mandef(10) = { 15,0,$86+Tno,2,-1 }
  4531.     &on
  4532.  
  4533. #19                //小宝
  4534.     Tbit=64
  4535.     &jsr 宝開閉？
  4536.     &if (Tno!=0) {
  4537.         !|(8);「もう、ないわね、ww残念ね。」pc
  4538.         &&
  4539.     }
  4540.     !|(8);「ほらっ、宝箱！」pc
  4541.     !|(0);「言われなくても、;分かっている。」pc
  4542.     &jsr pcm_treasure
  4543.     %mandef(19) = { 15,0,$85,2,-1 }
  4544.     &on
  4545.     !|(0);「おっ、武器だ！」pc
  4546.     !|(7);「ほんとですね、;先がとっても鋭いですね。」pc
  4547.     !|(0);「こりゃ、;俺には扱えそうにないな。」pc
  4548.     !|(8);「じゃぁ～、;あたしがもらうわね。」pc
  4549.     !|(0);「|(8)！;使えるのか？」pc
  4550.     !|(8);「もちろんよ！」pc
  4551.     !|(0);「そうかw・w・w・w・。p;だったら、|(8)が;持つのがよさそうだな。」pc
  4552.     Tno=(スティレット)
  4553.     &jsr 宝ゲット
  4554.     T城Ｂ１=Tsub
  4555.     &jsr 宝開閉？
  4556.     %mandef(19) = { 15,0,$84+Tno,2,-1 }
  4557.     &on
  4558.  
  4559.  
  4560.  
  4561. #@0
  4562.     &if (%direc>=0) {
  4563.         &&
  4564.     }
  4565.     //&se 22
  4566.     &goto2 城１Ｆ,@11,%down
  4567.  
  4568. #@1
  4569.     &if (%direc>=0) {
  4570.         &&
  4571.     }
  4572.     //&se 22
  4573.     &goto2 城１Ｆ,@15,%down
  4574.  
  4575. #@2
  4576.     &if (%direc>=0) {
  4577.         &&
  4578.     }
  4579.     //&se 22
  4580.     &goto2 城壁前,@7,%down
  4581.  
  4582. #@3
  4583.     &if (%direc>=0) {
  4584.         &&
  4585.     }
  4586.     //&se 22
  4587.     &goto2 城Ｂ２,@3,%down
  4588.  
  4589. #@4
  4590.     &if (%direc>=0) {
  4591.         &&
  4592.     }
  4593.     //&se 22
  4594.     &goto2 城Ｂ２,@4,%down
  4595.  
  4596. #@5
  4597.     &if (%direc>=0) {
  4598.         &&
  4599.     }
  4600.     //&se 22
  4601.     &goto2 城壁前,@6,%down
  4602.  
  4603. #@6
  4604.     &if (%direc>=0) {
  4605.         &&
  4606.     }
  4607.     //&se 22
  4608.     &goto2 城Ｂ２,@2,%down
  4609.  
  4610.  
  4611. #@10
  4612.     &if (%direc>=0) {
  4613.         &&
  4614.     }
  4615.     &if (%partyexist(11)==0) {
  4616.         !|(0);「ダメだ、これ以上先には、;進めない！p;
  4617.         &partymove 2,2
  4618.         !なぜだろうか。」pc
  4619.     } &else {
  4620.         &if ((eventT and 2)==0) {
  4621.             !|(0);「ダメだ！;これ以上先には、進めないな！」pc
  4622.             !|(11);「ほほう、ここまで来るとは、;|(0)。p;
  4623.             !君は、なかなか注意力があるな。p;いいだろう。」pc
  4624.             !|(0);「おいっ、|(11)、;どういうことだ！」pc
  4625.             !|(11);「ナウッタ　ジュラマト　イド！」pc
  4626.             !|(7);「えっ、呪文なの？」pc
  4627.             !|(11);「これでいい。行くぞ！」pc
  4628.             !|(0);「行くぞって、;どういうことなんだ！」pc
  4629.             !|(8);「そうよ、説明ぐらい;してくれてもいいでしょ！」pc
  4630.             !|(11);「この先に行けば;分かることだ。」pc
  4631.             !|(8);「もう！」pc
  4632.             !|(0);「行ってみるか。」pc
  4633.             eventT=eventT or 2
  4634.         }
  4635.     }
  4636.  
  4637.  
  4638. #@11
  4639.     &if (%direc>=0) {
  4640.         &&
  4641.     }
  4642.     &if ((eventT and 4)==0) {
  4643.         !|(11);「さぁ、ここから先は、;大変だぞ。」pc
  4644.         !|(0);「ふぅ～！w;分かったよ。」pc
  4645.         !|(8);「ほんと、あんたは、;特別だからね。」pc
  4646.         !|(7);「でも、頑張りましょう。」pc
  4647.         !|(8);「ふぅ～、分かったわよ。」pc
  4648.         eventT=eventT or 4
  4649.     }
  4650.  
  4651.  
  4652. #@42                //隠し宝
  4653.     &if (%direc<0) {
  4654.         &&
  4655.     }
  4656.     Tbit=2
  4657.     &if ((Tsub and Tbit)==0) {
  4658.         !|(7);「わぁ、こんな所にも、;花が咲いてる！」pc
  4659.         !|(8);「本当だ、きれいね。」pc
  4660.         !|(0);「これは、なんだ！」pc
  4661.         Tno=(ルビーの指輪)
  4662.         &jsr 宝ゲット
  4663.         T城Ｂ１=Tsub
  4664.         &if ((Tsub and Tbit)==0) {
  4665.             &&
  4666.         }
  4667.         !|(7);「|(0)、どうしたの？」pc
  4668.         !|(8);「なんだい、;その手に持ってるのは？」pc
  4669.         !|(0);「ん？」pc
  4670.         !|(8);「なぁ、見せなよ！」pc
  4671.         !o(0)|(0);（どうしようか？）
  4672.         %selectlist= { 王女様にあげる,道具屋の娘にあげる,自分がもらう }
  4673.         &switch %select {
  4674.         &case 0:
  4675.             !c|(0);「|(7)、;これ、君にあげる。」pc
  4676.             !|(7);「えっ、wあの、wこれって、;ルビーの指輪！？」pc
  4677.             !|(0);「いらないのか！」pc
  4678.             !|(7);「いっ、いえ。ww;|(0)、ありがとう！」pc
  4679.             !|(8);「いいなぁ、私も欲しいな！p;でも、やっぱりいいや！」pc
  4680.             !|(7);「|(8)さん・・・、;ごめんなさい。」pc
  4681.             !|(8);「なんであやまるんだい。;気にすることなんかないよ！;
  4682.             !あんたがもらった物だしね。」pc
  4683.             &partyitemout (ルビーの指輪)
  4684.             セシル+=80
  4685.             &&
  4686.         &case 1:
  4687.             !c|(0);「|(8)、;君に、やろうか。」pc
  4688.             !|(8);「これって・w・w・w・、;ルビーの指輪じゃない！」pc
  4689.             !|(0);「いらないのか！」pc
  4690.             !|(8);「いらないわけないだろ。p;もちろんもらうよ。p;
  4691.             !・w・w・w・w・ありがと、;|(0)！」pc
  4692.             !|(7);「|(8)さん、;よかったですね。」pc
  4693.             !|(8);「へへっ、なんか得したわね。」pc
  4694.             &partyitemout (ルビーの指輪)
  4695.             ミーナ+=80
  4696.             &&
  4697.         &default:
  4698.             //&partyspeed 2
  4699.             //&partymove -6,-4,-6,-4,-6
  4700.             //&partyspeed 1
  4701.             !c|(0);「いっ、いや。なんでもない！」pc
  4702.             !|(8);「なんか怪しいね、;ほんとになんでもないのかい？」pc
  4703.             !|(0);「ああ、なんでもない。」pc
  4704.             !|(8);「それならいいわよ。」pc
  4705.             !|(7);「|(0)w・w・w・。」pc
  4706.             セシル-=40
  4707.             ミーナ-=40
  4708.             &&
  4709.         }
  4710.     }
  4711.     !|(0);「もう、落ちてないな。」pc
  4712.  
  4713.  
  4714.  
  4715. #@49
  4716.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  4717.     &jsr タマ
  4718.     }
  4719.  
  4720.     &if (%direc>=0) {&&}
  4721.     &if (noencounter>0) {
  4722.         noencounter--
  4723.     } &else {
  4724.         &if (%rnd(encounter)!=1) {&&}
  4725.         &jsr 敵遭遇
  4726.     }
  4727.  
  4728.  
  4729.                                     
  4730. [城Ｂ２]            //フレデリック城地下２階
  4731.                                     
  4732.     //&mappal map\dark.PAL
  4733.     &map map\B2.MAP        //城Ｂ２.MAP
  4734.     &if (%nowbgm!=15) {
  4735.         &bgm 15
  4736.     }
  4737.     mons1=オーク                //monster set
  4738.     hm1=3
  4739.     mons2=スケルトン
  4740.     hm2=3
  4741.     mons3=オーガ
  4742.     hm3=2
  4743.     mons4=グール
  4744.     enc_pat=4
  4745.     encounter=48        // 1/48
  4746.     &jsr 黒十字
  4747.  
  4748.  
  4749.     Tsub=T城Ｂ２                //宝セット
  4750.     Tbit=1
  4751.     &jsr 宝開閉？
  4752.     %mandef(10) = { 15,0,$84+Tno,2,-1 }
  4753.     Tbit=2
  4754.     &jsr 宝開閉？
  4755.     %mandef(11) = { 15,0,$84+Tno,2,-1 }
  4756.     Tbit=4
  4757.     &jsr 宝開閉？
  4758.     %mandef(12) = { 15,0,$84+Tno,2,-1 }
  4759.     Tbit=8
  4760.     &jsr 宝開閉？
  4761.     %mandef(13) = { 15,0,$88+Tno,2,-1 }
  4762.     Tbit=16
  4763.     &jsr 宝開閉？
  4764.     %mandef(14) = { 15,0,$84+Tno,2,-1 }
  4765.     Tbit=32
  4766.     &jsr 宝開閉？
  4767.     %mandef(15) = { 15,0,$88+Tno,2,-1 }
  4768.     Tbit=64
  4769.     &jsr 宝開閉？
  4770.     %mandef(16) = { 15,0,$88+Tno,2,-1 }
  4771.     Tbit=128
  4772.     &jsr 宝開閉？
  4773.     %mandef(17) = { 15,0,$88+Tno,2,-1 }
  4774.     Tbit=256
  4775.     &jsr 宝開閉？
  4776.     %mandef(18) = { 15,0,$84+Tno,2,-1 }
  4777.  
  4778.     %bcirclesize=128
  4779.     &blackcircle 1
  4780.     &on
  4781.     &if (door_sound==0) {
  4782.         !o(1);［フレデリック城地下２階］pc
  4783.     }
  4784.     door_sound=0
  4785.  
  4786.  
  4787.  
  4788. #10            //小宝
  4789.     Tbit=1
  4790.     &jsr 宝開閉？
  4791.     &if (Tno!=0) {
  4792.         !|(0);「何も無しだな！」pc
  4793.         &&
  4794.     }
  4795.     !|(0);「早速中身拝見！」pc
  4796.     &jsr pcm_treasure
  4797.     %mandef(10) = { 15,0,$85,2,-1 }
  4798.     &on
  4799.     Tno=(エクスポーション)
  4800.     &jsr 宝ゲット
  4801.     T城Ｂ２=Tsub
  4802.     &jsr 宝開閉？
  4803.     %mandef(10) = { 15,0,$84+Tno,2,-1 }
  4804.     &on
  4805.  
  4806.  
  4807. #11            //小宝
  4808.     Tbit=2
  4809.     &jsr 宝開閉？
  4810.     &if (Tno!=0) {
  4811.         !|(8);「・w・w・w・w・w・w・たまには、;なんか見つからないかな。」pc
  4812.         &&
  4813.     }
  4814.     &jsr pcm_treasure
  4815.     %mandef(11) = { 15,0,$85,2,-1 }
  4816.     &on
  4817.     Tno=(エクスポーション)
  4818.     &jsr 宝ゲット
  4819.     T城Ｂ２=Tsub
  4820.     &jsr 宝開閉？
  4821.     %mandef(11) = { 15,0,$84+Tno,2,-1 }
  4822.     &on
  4823.     &if (Tno==1) {
  4824.         !|(8);「今回は、無口だね。」pc
  4825.         !|(0);「別にいいだろ！」pc
  4826.     }
  4827.  
  4828.  
  4829. #12            //小宝
  4830.     Tbit=4
  4831.     &jsr 宝開閉？
  4832.     &if (Tno!=0) {
  4833.         !|(7);「もう何もないみたい！」pc
  4834.         &&
  4835.     }
  4836.     &jsr pcm_treasure
  4837.     %mandef(12) = { 15,0,$85,2,-1 }
  4838.     &on
  4839.     !|(7);「薬が入ってます！」pc
  4840.     Tno=(エクスポーション)
  4841.     &jsr 宝ゲット
  4842.     T城Ｂ２=Tsub
  4843.     &jsr 宝開閉？
  4844.     %mandef(12) = { 15,0,$84+Tno,2,-1 }
  4845.     &on
  4846.  
  4847.  
  4848. #13            //大宝
  4849.     Tbit=8
  4850.     &jsr 宝開閉？
  4851.     &if (Tno!=0) {
  4852.         !|(0);「もうないな。この宝箱も;呪われてないだろうな。」pc
  4853.         &&
  4854.     }
  4855.     &jsr pcm_treasure
  4856.     %mandef(13) = { 15,0,$89,2,-1 }
  4857.     &on
  4858.     !|(0);「鎧のようだな。」pc
  4859.     Tno=(呪われた鎧)
  4860.     &jsr 宝ゲット
  4861.     T城Ｂ２=Tsub
  4862.     &jsr 宝開閉？
  4863.     %mandef(13) = { 15,0,$88+Tno,2,-1 }
  4864.     &on
  4865.     &if (Tno==1) {
  4866.         !|(7);「でも、呪いがかかってるような;気がしますけど。」pc
  4867.         !|(8);「ほんと、趣味の悪い鎧だね。」pc
  4868.     }
  4869.  
  4870.  
  4871. #14            //小宝
  4872.     Tbit=16
  4873.     &jsr 宝開閉？
  4874.     &if (Tno!=0) {
  4875.         !|(8);「結局、薬だけだったね！」pc
  4876.         &&
  4877.     }
  4878.     !|(7);「宝箱があります！」pc
  4879.     &jsr pcm_treasure
  4880.     %mandef(14) = { 15,0,$85,2,-1 }
  4881.     &on
  4882.     !|(0);「薬だけのようだ。」pc
  4883.     !|(8);「もっといいのを、;入れればいいのにね。」pc
  4884.     Tno=(エクスポーション)
  4885.     &jsr 宝ゲット
  4886.     T城Ｂ２=Tsub
  4887.     &jsr 宝開閉？
  4888.     %mandef(14) = { 15,0,$84+Tno,2,-1 }
  4889.     &on
  4890.  
  4891.  
  4892. #15            //大宝
  4893.     Tbit=32
  4894.     &jsr 宝開閉？
  4895.     &if (Tno!=0) {
  4896.         !|(0);「呪われた物だけか。」pc
  4897.         &&
  4898.     }
  4899.     !|(0);「大きめの宝箱だな。」pc
  4900.     !|(7);「いい物が入ってると;いいですね。」pc
  4901.     &jsr pcm_treasure
  4902.     %mandef(15) = { 15,0,$89,2,-1 }
  4903.     &on
  4904.     !|(0);「ん？p;剣のようだが。」pc
  4905.     Tno=(呪われたつるぎ)
  4906.     &jsr 宝ゲット
  4907.     T城Ｂ２=Tsub
  4908.     &jsr 宝開閉？
  4909.     %mandef(15) = { 15,0,$88+Tno,2,-1 }
  4910.     &on
  4911.     &if (Tno==1) {
  4912.         !|(8);「気持ち悪い剣だね、これ。」pc
  4913.         !|(7);「これ、w;呪われてるみたいだけど。」pc
  4914.         !|(0);「呪われている剣か、;役に立そうにないな。」pc
  4915.     }
  4916.  
  4917.  
  4918. #16            //大宝
  4919.     Tbit=64
  4920.     &jsr 宝開閉？
  4921.     &if (Tno!=0) {
  4922.         !|(0);「なにも入ってないな。」pc
  4923.         &&
  4924.     }
  4925.     &jsr pcm_treasure
  4926.     %mandef(16) = { 15,0,$89,2,-1 }
  4927.     &on
  4928.     !|(0);「ん、w腕輪か！;俺用じゃないな。」pc
  4929.     Tno=(くろがねの腕輪)
  4930.     &jsr 宝ゲット
  4931.     T城Ｂ２=Tsub
  4932.     &jsr 宝開閉？
  4933.     %mandef(16) = { 15,0,$88+Tno,2,-1 }
  4934.     &on
  4935.     &if (Tno==1) {
  4936.         !|(8);「あたし達女性用だね。」pc
  4937.     }
  4938.  
  4939.  
  4940.  
  4941. #17            //大宝
  4942.     Tbit=128
  4943.     &jsr 宝開閉？
  4944.     &if (Tno!=0) {
  4945.         !|(7);「何もないですね。」pc
  4946.         &&
  4947.     }
  4948.     !|(7);「何が、入ってるのかしら。」pc
  4949.     &jsr pcm_treasure
  4950.     %mandef(17) = { 15,0,$89,2,-1 }
  4951.     &on
  4952.     !|(0);「腕輪だな。」pc
  4953.     !|(7);「ほんと、銀の腕輪ですね。」pc
  4954.     Tno=(くろがねの腕輪)
  4955.     &jsr 宝ゲット
  4956.     T城Ｂ２=Tsub
  4957.     &jsr 宝開閉？
  4958.     %mandef(17) = { 15,0,$88+Tno,2,-1 }
  4959.     &on
  4960.  
  4961.  
  4962. #18            //小宝
  4963.     Tbit=256
  4964.     &jsr 宝開閉？
  4965.     &if (Tno!=0) {
  4966.         !|(0);「一つだけか！」pc
  4967.         &&
  4968.     }
  4969.     !|(0);「宝箱だ！」pc
  4970.     &jsr pcm_treasure
  4971.     %mandef(18) = { 15,0,$85,2,-1 }
  4972.     &on
  4973.     !|(0);「おっ、薬が入ってるな！」pc
  4974.     !|(8);「まぁまぁな物だね！」pc
  4975.     Tno=(リアリゼーション)
  4976.     &jsr 宝ゲット
  4977.     T城Ｂ２=Tsub
  4978.     &jsr 宝開閉？
  4979.     %mandef(18) = { 15,0,$84+Tno,2,-1 }
  4980.     &on
  4981.  
  4982.  
  4983.  
  4984. #@0
  4985.     &if (%direc>=0) {
  4986.         &&
  4987.     }
  4988.     //&se 22
  4989.     &goto2 城Ｂ３,@0,%down
  4990.  
  4991. #@1
  4992.     &if (%direc>=0) {
  4993.         &&
  4994.     }
  4995.     //&se 22
  4996.     &goto2 城Ｂ３,@1,%down
  4997.  
  4998. #@2
  4999.     &if (%direc>=0) {
  5000.         &&
  5001.     }
  5002.     //&se 22
  5003.     &goto2 城Ｂ１,@6,%down
  5004.  
  5005. #@3
  5006.     &if (%direc>=0) {
  5007.         &&
  5008.     }
  5009.     //&se 22
  5010.     &goto2 城Ｂ１,@3,%down
  5011.  
  5012. #@4
  5013.     &if (%direc>=0) {
  5014.         &&
  5015.     }
  5016.     //&se 22
  5017.     &goto2 城Ｂ１,@4,%down
  5018.  
  5019. #@5
  5020.     &if (%direc>=0) {
  5021.         &&
  5022.     }
  5023.     //&se 22
  5024.     &goto2 城Ｂ３,@2,%down
  5025.  
  5026. #@10
  5027.     &if (%direc>=0) {
  5028.         &&
  5029.     }
  5030.     &if ((eventT and 16)==0) {
  5031.         !|(0);「ここは、浅いようだ。」pc
  5032.         !|(8);「それってもしかして;入るってこと。」pc
  5033.         !|(0);「もちろんだ。」pc
  5034.         !|(7);「|(8)さんどうしたの。」pc
  5035.         !|(8);「べ、wべつに、w何でもないわよ。p;ほんとうに。」pc
  5036.         !|(0);「入っても大丈夫だな！」pc
  5037.         !|(8);「も、もちろんよ、;行きましょ！」pc
  5038.         &partymove 2,2,2,2,2,2
  5039.         eventT=eventT or 16
  5040.     }
  5041.  
  5042. #@40
  5043.     !|(0);「さ、行くぞ！」pc
  5044.     !|(7);「ええ、頑張りましょ。」pc
  5045.     !|(8);「さっさと、片付けようよね！」pc
  5046.     &bgm %nowbgm
  5047. #@41
  5048.     &if (%direc>=0) {
  5049.         &jsr 黄金の泉
  5050.     }
  5051.  
  5052.  
  5053. #@42                //隠し宝
  5054.     &if (%direc!=8) {
  5055.         &&
  5056.     }
  5057.     Tbit=512
  5058.     &if ((Tsub and Tbit)==0) {
  5059.         &if ((eventT and 8)==0) {
  5060.             !|(0);「なんだ！」
  5061.             &partymove 6,6,8,8,8,8,8,4,4,4,4,2,2,2,2,2,6,6,-8
  5062.             !c
  5063.             !|(0);「ここだけ妙な石柱があるぞ。」pc
  5064.             !|(7);「ほんとうですね、;ここだけ緑色ですね。;どうしてかしら。」pc
  5065.             !|(8);「なんかあるのかな。;叩いてみようか。」pc
  5066.             !|(0);「おい、待てよ|(8)！」pc
  5067.             &pcm 7
  5068.             &wait 160
  5069.             !|(8);「もう、叩いちゃったわよ。」pc
  5070.             !石柱;「痛いな。」pc
  5071.             !|(8);「げげ～、wは、wはしらがw;しゃべった～！」pc
  5072.             !石柱;「なにがじゃ、おこしといて。;で、用はあれじゃな。」pc
  5073.             !|(0);「すまないな、;用は、別にない。」pc
  5074.             !|(7);「ごめんなさい、;起こすつもりはなかったの。」pc
  5075.             !|(8);「あっ、ほんと、;悪気はなかったんだ。」pc
  5076.             !石柱;「ん、わしの持ってる剣が;欲しくて来たんじゃな。」pc
  5077.             !|(0);「剣って、なんなんだ。」pc
  5078.             !石柱;「そうか、やはりそうか。;だったら、わしに勝ってみろ。」pc
  5079.             !|(0);「おっ、おい、待てよ、;こっちの話もきけよ！」pc
  5080.             Xsub=%nowbgm
  5081.             &bgm 0
  5082.             &battle $1000,23,ロックハザード,1
  5083.             &if (%exitcode==1) {
  5084.                 !石柱;「なんじゃ、;こんなもんじゃったか！」pc
  5085.             }
  5086.             &jsr gold_Gover
  5087.             &bgm Xsub
  5088.             !石柱;「お前達、なかなかやるな。;ほれ、欲しいのは、これじゃろ。p;
  5089.             !用が済んだら;もう起こすんじゃないぞ。」pc
  5090.             !|(0);「ああ、;もう二度と起こさないさ。」pc
  5091.             eventT=eventT or 8
  5092.             Tno=(トリプルファング)
  5093.             &jsr 宝ゲット
  5094.             T城Ｂ２=Tsub
  5095.             &if ((Tsub and Tbit)==0) {
  5096.                 !|(0);「仕方ない、;ここに置いておくか。」pc
  5097.                 !|(7);「そうですね、持ち物に余裕が;できたら取りに来ましょう。」pc
  5098.                 !|(8);「なに言ってるのよ、;なんか処分しましょ。w;ね！」pc
  5099.                 &&
  5100.             }
  5101.             !|(0);「早速装備してみるか。」pc
  5102.             !|(7);「どうですか。」pc
  5103.             !|(8);「ねぇ、どうなんだい、;早く装備してみなよ！」pc
  5104.             &&
  5105.         }
  5106.         Tno=(トリプルファング)
  5107.         &jsr 宝ゲット
  5108.         T城Ｂ２=Tsub
  5109.         &if ((Tsub and Tbit)==0) {
  5110.             !|(7);「あの、まだ持ち物が;いっぱいですけど。」pc
  5111.             !|(8);「ばかだね、p;だからさっさと、なにか;処分したらよかったのにね。」pc
  5112.             セシル--
  5113.             ミーナ--
  5114.             &&
  5115.         }
  5116.         !|(0);「やっと、持てるな。;どれ、装備してみるか。」pc
  5117.         &&
  5118.     }
  5119.     !|(7);「そっとしてあげましょう。」pc
  5120.     !|(0);「そうだな、;起こすと厄介だからな。」pc
  5121.     !|(8);「そうそう、;もう何もしないわよ、;あたしは。」pc
  5122.  
  5123.  
  5124. #@49
  5125.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  5126.     &jsr タマ
  5127.     }
  5128.  
  5129.     &if (%direc>=0) {&&}
  5130.     &if (noencounter>0) {
  5131.         noencounter--
  5132.     } &else {
  5133.         &if (%rnd(encounter)!=1) {&&}
  5134.         &jsr 敵遭遇
  5135.     }
  5136.  
  5137.  
  5138.                                     
  5139. [城Ｂ３]            //フレデリック城地下３階
  5140.                                     
  5141.     &ldef T10sub
  5142.     //&mappal map\dark.PAL
  5143.     &if (door_sound!=1) {
  5144.         &map map\B3.MAP        //城Ｂ３.MAP
  5145.     }
  5146.     &if (%nowbgm!=15) {
  5147.         &bgm 15
  5148.     }
  5149.     mons1=スケルトン                //monster set
  5150.     hm1=3
  5151.     mons2=キングオーク
  5152.     hm2=2
  5153.     mons3=ブロブ
  5154.     hm3=1
  5155.     mons4=ブラッドブロブ
  5156.     enc_pat=4
  5157.     encounter=40        // 1/40
  5158.     &jsr 黒十字
  5159.  
  5160.  
  5161.     Tsub=T城Ｂ３                //宝セット
  5162.     Tbit=1
  5163.     &if ((Tsub and $e0)==0) {
  5164.         T10sub=4
  5165.     } &else {
  5166.         &if ((Tsub and $e0)==$20) {
  5167.             T10sub=2
  5168.         } &else {
  5169.             T10sub=0
  5170.         }
  5171.     }
  5172.     &jsr 宝開閉？
  5173.     %mandef(10) = { 15,0,$84+Tno+T10sub,2,-1 }
  5174.     Tbit=2
  5175.     &jsr 宝開閉？
  5176.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  5177.     Tbit=4
  5178.     &jsr 宝開閉？
  5179.     %mandef(12) = { 15,0,$88+Tno,2,-1 }
  5180.     Tbit=8
  5181.     &jsr 宝開閉？
  5182.     %mandef(13) = { 15,0,$86+Tno,2,-1 }
  5183.     Tbit=16
  5184.     &jsr 宝開閉？
  5185.     %mandef(14) = { 15,0,$88+Tno,2,-1 }
  5186.  
  5187.     %bcirclesize=128
  5188.     &blackcircle 1
  5189.     &jsr DOORCLOSE
  5190.     &on
  5191.     &if (door_sound==0) {
  5192.         !o(1);［フレデリック城地下３階］pc
  5193.     }
  5194.     door_sound=0
  5195.  
  5196.  
  5197. #10            //大中小宝    変な宝箱
  5198.     Tsub=T城Ｂ３
  5199.     Tbit=1
  5200.     T10sub=Tsub and $e0
  5201.     &if ((%haveitem(黒いディスク１)==1) and (T10sub==0)) {
  5202.         &if ((Tsub and 256)==0) {
  5203.             !|(0);「そうか、この黒いディスク１を;入れてみるか。」pc
  5204.             !|(7);「そうですね、鍵の穴の大きさと;同じぐらいですしね。」pc
  5205.             !|(11);「なかなか鋭いな、;入れてみるといい。」pc
  5206.             !|(8);「そうそう、レッツゴー！」pc
  5207.         } &else {
  5208.             !|(0);「この黒いディスク１だな。」pc
  5209.             !|(11);「そういうことだ、;さぁ、入れてみるといい。」pc
  5210.         }
  5211.         &pcm 5
  5212.         !|(0);「鍵が開いたようだ。」pc
  5213.         &partyitemout (黒いディスク１)
  5214.         T城Ｂ３=Tsub or 32
  5215.         !|(0);「開けてみるか。」pc
  5216.         &pcm 6
  5217.         &wait 120
  5218.         %mandef(10)= { 15,0,$89,2,-1 }
  5219.         &on
  5220.         !|(0);「なんだ、中に一回り小さな;宝箱が入っているだけだ。」pc
  5221.         !|(7);「えっ、ほんとう？;・w・w・w・、ほんとうですね。」pc
  5222.         !|(8);「出してみるわよ。」pc
  5223.         %mandef(10)= { 15,0,$86,2,-1 }
  5224.         &on
  5225.         &&
  5226.     }
  5227.     &if ((%haveitem(黒いディスク２)==1) and (T10sub==$20)) {
  5228.         !|(0);「この黒いディスク２だな、;入れるぞ。」pc
  5229.         !|(11);「そうだな、;入れてみるといい。」pc
  5230.         !|(8);「ほんと、クールだよね、;|(11)は。」pc
  5231.         &partyitemout (黒いディスク２)
  5232.         T城Ｂ３=Tsub or 64
  5233.         &pcm 5
  5234.         !|(7);「鍵が開いたみたいです。」pc
  5235.         !|(0);「よし、開けるぞ。」pc
  5236.         &pcm 6
  5237.         &wait 120
  5238.         %mandef(10)= { 15,0,$87,2,-1 }
  5239.         &on
  5240.         !|(0);「おい、またか。」pc
  5241.         !|(7);「えっ、もしかして宝箱？」pc
  5242.         !|(0);「そういうことだ、p;は～、出すか。」pc
  5243.         %mandef(10)= { 15,0,$84,2,-1 }
  5244.         &on
  5245.         &&
  5246.     }
  5247.     &if ((%haveitem(黒いディスク３)==1) and (T10sub==$60)) {
  5248.         !|(0);「今度も宝箱だったら、;怒るぞ。」pc
  5249.         !|(8);「じゃぁ、この黒いディスク３を;入れるわね。」pc
  5250.         &partyitemout (黒いディスク３)
  5251.         T城Ｂ３=Tsub or 128
  5252.         &pcm 5
  5253.         !|(8);「鍵が開いたわよ。;じゃぁ、開けるわね。」pc
  5254.         !|(0);「ああ。」pc
  5255.         &pcm 6
  5256.         &wait 120
  5257.         %mandef(10)= { 15,0,$85,2,-1 }
  5258.         &on
  5259.         !|(8);「おおっ！」pc
  5260.         !|(0);「なんだ、またか。」pc
  5261.         !|(8);「違うって、ほら見てみなよ。」pc
  5262.         !|(0);「ん、ただの剣か。」pc
  5263.         !|(7);「ちょっと待って|(0)！;この剣から、;ものすごい魔力を感じます。」pc
  5264.         !|(11);「ほほう、分かるか、これは、;我らに代々伝わる究極の;武器だ。」pc
  5265.         !|(0);「だったら、;あんたが持ってるほうがいい。p;
  5266.         !俺は、;これがあるから別にいい。」pc
  5267.         !|(11);「いや、これは、|(0)に;使ってもらいたい。」pc
  5268.         !|(7);「どうして？;あなたにとって大切な物、w;なんですよね。」pc
  5269.         !|(11);「そうだが、これを扱える者が;現れるのを待っていたんだ。p;
  5270.         !|(0)、君のことだ！」pc
  5271.         !|(0);「おれが？p;どういうことだ。」pc
  5272.         !|(11);「私は、必ず、;ナリスプリトンを倒したい。p;
  5273.         !それには、;聖戦士である;お前の力が必要だ。」pc
  5274.         !|(0);「聖戦士か、・w・w・w・w・w。p;残念だが俺は;聖戦士なんかじゃない。p;
  5275.         !でも、心配するな、;ナリスプリトンを倒すのに;力は貸す。」pc
  5276.         !|(11);「そうか。p;しかし、使ってくれ、;役に立つと思うが。」pc
  5277.         !|(8);「そうよ、せっかくいいって;言ってるんだから、使いなよ。」pc
  5278.         !|(0);「ま、別にかまわないが。」pc
  5279.         !|(8);「だったら決まり！wwねっ。」pc
  5280.         Tno= (アルテマウェポン)
  5281.         &jsr 宝ゲット
  5282.         T城Ｂ３=Tsub
  5283.         !|(11);「大事に使ってくれ;|(0)。」pc
  5284.         !|(0);「ああ、大丈夫だ。」pc
  5285.         &&
  5286.     }
  5287.     &if (T10sub==0) {
  5288.         &if ((Tsub and 256)==0) {
  5289.             !|(0);「他の宝箱と違うな。p;鍵が掛かってるが、;
  5290.             !鍵穴が細長いな。;どういうことだ？」pc
  5291.             !|(7);「なにか、;差し込むんじゃないかしら。」pc
  5292.             !|(8);「そうかもね、;何か持ってない？」pc
  5293.             !|(0);「残念だが、差し込めそうな物は;ないようだ。p;
  5294.             !仕方ない、あきらめよう。」pc
  5295.             &if (%partyexist(11)==1) {
  5296.                 !|(11);「そう簡単にあきらめるものでは;ないぞ！p;
  5297.                 &if ((%haveitem(黒いディスク２)==1) or (%haveitem(黒いディスク３)==1)) {
  5298.                     !この宝の鍵は、;|(0)の持っている;黒いディスクだ。」pc
  5299.                 } &else {
  5300.                     !黒いディスクを探すといい。」pc
  5301.                     !|(0);「黒いディスク？;なんだそれ。」pc
  5302.                     !|(11);「見つければいい、実物を;見る方が良く分かるだろ。」pc
  5303.                     !|(8);「ケチだね、;教えてくれてもいいのにね。」pc
  5304.                 }
  5305.                 T城Ｂ３=Tsub or 256
  5306.             }
  5307.         } &else {
  5308.             !|(0);「黒いディスクだな。」pc
  5309.             !|(11);「そういうことだ。」pc
  5310.             &if ((%haveitem(黒いディスク２)==1) or (%haveitem(黒いディスク３)==1)) {
  5311.                 !|(11);「もちろん、;順番と言うモノがあるからな。」pc
  5312.                 !|(0);「ああ、分かった。」pc
  5313.             }
  5314.         }
  5315.         &&
  5316.     }
  5317.     &if ((Tsub and 1)!=0) {
  5318.         !|(0);「これで、;何もなくなったわけだ。」pc
  5319.         !|(7);「もう、;何も出てこないようですね。」pc
  5320.         !|(8);「あ～あ、あたし用のは;出てこないのかな。」pc
  5321.         &&
  5322.     }
  5323.     !|(0);「こいつも、;ディスクとやらが必要か。」pc
  5324.     !|(11);「そういうことだ。;もちろん順番があるからな。」pc
  5325.     !|(0);「そのぐらい分かってるさ。」pc
  5326.  
  5327.  
  5328. #11            //大宝
  5329.     Tbit=2
  5330.     &jsr 宝開閉？
  5331.     &if (Tno!=0) {
  5332.         !|(0);「もうないな。」pc
  5333.         !|(8);「金のかけらでも;入ってないかな。」pc
  5334.         &&
  5335.     }
  5336.     &jsr pcm_treasure
  5337.     %mandef(11) = { 15,0,$89,2,-1 }
  5338.     &on
  5339.     !|(0);「腕輪だな。」pc
  5340.     !|(8);「どれどれ、w金じゃないこれ。;いい物見つけたわね。」pc
  5341.     Tno=(金の腕輪)
  5342.     &jsr 宝ゲット
  5343.     T城Ｂ３=Tsub
  5344.     &jsr 宝開閉？
  5345.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  5346.     &on
  5347.  
  5348.  
  5349. #12            //大宝
  5350.     Tbit=4
  5351.     &jsr 宝開閉？
  5352.     &if (Tno!=0) {
  5353.         !|(0);「もうないな。」pc
  5354.         !|(7);「何もないですね。」pc
  5355.         &&
  5356.     }
  5357.     &jsr pcm_treasure
  5358.     %mandef(12) = { 15,0,$89,2,-1 }
  5359.     &on
  5360.     !|(0);「腕輪か、俺には向かないな。」pc
  5361.     !|(7);「わたし達女性用ですね。」pc
  5362.     Tno=(金の腕輪)
  5363.     &jsr 宝ゲット
  5364.     T城Ｂ３=Tsub
  5365.     &jsr 宝開閉？
  5366.     %mandef(12) = { 15,0,$88+Tno,2,-1 }
  5367.     &on
  5368.  
  5369.  
  5370.  
  5371.  
  5372. #13            //中宝
  5373.     Tbit=8
  5374.     &jsr 宝開閉？
  5375.     &if (Tno!=0) {
  5376.         !|(0);「小さなかけらがまだ;残ってるな。」pc
  5377.         !|(8);「ダメダメ、;こんなの使えないよ！」pc
  5378.         &&
  5379.     }
  5380.     &jsr pcm_treasure
  5381.     %mandef(13) = { 15,0,$87,2,-1 }
  5382.     &on
  5383.     !|(0);「紫色の水晶だ。;これは、シンシア水晶とか言う;物だな。」pc
  5384.     Tno=(シンシア水晶)
  5385.     &jsr 宝ゲット
  5386.     T城Ｂ３=Tsub
  5387.     &jsr 宝開閉？
  5388.     %mandef(13) = { 15,0,$86+Tno,2,-1 }
  5389.     &on
  5390.     &if (Tno==1) {
  5391.         !|(8);「そうだよ。p;でも、すごく大きな水晶だね。;p
  5392.         !ねぇ、wあたしにちょうだい、;別にいいでしょ。」pc
  5393.         !o(0)|(0)
  5394.         %selectlist= { ああ、かまない,いや、俺が持っておこう }
  5395.         &switch %select {
  5396.         &case 0:
  5397.             !c|(8);「ありがとう|(0)！p;これだけ大きかったら、;
  5398.             !親父も大喜びだね！」pc
  5399.             !|(7);「|(8)さん、;よかったですね。」pc
  5400.             !|(8);「ほんと、こんなのって滅多に;見つからないんだ。」pc
  5401.             &partyitemout (シンシア水晶)
  5402.             ミーナ+=20
  5403.             &&
  5404.         &case 1:
  5405.             !c|(8);「なんでだよ、|(0)が;持ってたって何にも;
  5406.             !役立たないのにね。」pc
  5407.             !|(0);「別に理由はないが、;重たいだろうから、p;
  5408.             !俺が持ってやろうかと;思っただけだ。p;
  5409.             !どうしても持ちたいなら、;ほら、渡そうか。」pc
  5410.             !|(8);「そうだったのw・w・w・。;ごめん、てっきり、;
  5411.             !独り占めするのかと;思ったんだ。」pc
  5412.             !|(0);「俺が、独り占めだって！p;俺がこんなの持ってたって、;
  5413.             !何の役にも立たないからな。;はwはwはwはwはっ！」pc
  5414.             ミーナ-=50
  5415.             &&
  5416.         &default:
  5417.             !;「・w・w・w・w・w・。p;しかし、大きいなこれ、p;あっ！
  5418.             &pcm 8
  5419.             &wait 200
  5420.             !;すまない、;手が滑ってしまった。」pc
  5421.             !|(8);「あ～！w;どうするんだよ、;もったいないな。p;
  5422.             !こんなの滅多に;見つからないんだよ！;もう！」pc
  5423.             !|(7);「|(8)さん、;この破片は使えないの。」pc
  5424.             !|(8);「残念だけど、粉々だからね。;仕方ないか、
  5425.             !あきらめよう。」pc
  5426.             &partyitemout (シンシア水晶)
  5427.             ミーナ-=40
  5428.             &&
  5429.         }
  5430.     }
  5431.  
  5432.  
  5433. #14            //大宝
  5434.     Tbit=16
  5435.     &jsr 宝開閉？
  5436.     &if (Tno!=0) {
  5437.         !|(0);「この宝箱、少し焦げ臭いな。」pc
  5438.         !|(7);「この杖が、;入っていたせいですね。」pc
  5439.         &&
  5440.     }
  5441.     &jsr pcm_treasure
  5442.     %mandef(14) = { 15,0,$89,2,-1 }
  5443.     &on
  5444.     !|(0);「なんだ、この杖は？」pc
  5445.     Tno=(炎の杖)
  5446.     &jsr 宝ゲット
  5447.     T城Ｂ３=Tsub
  5448.     &jsr 宝開閉？
  5449.     %mandef(14) = { 15,0,$88+Tno,2,-1 }
  5450.     &on
  5451.     &if (Tno==1) {
  5452.         !|(8);「炎がともってるわね、これ。」pc
  5453.         !|(7);「火の魔力が;込められているみたい。」pc
  5454.         !|(0);「知ってるようだな|(7)。;だったら使えるな。」pc
  5455.         !|(7);「ええ、使えます。」pc
  5456.         !|(0);「だったら、決まりだな。p;|(7)が、;持つべきだな。」pc
  5457.     }
  5458.  
  5459.  
  5460.  
  5461. #@0
  5462.     &if (%direc>=0) {
  5463.         &&
  5464.     }
  5465.     //&se 22
  5466.     &goto2 城Ｂ２,@0,%down
  5467.  
  5468. #@1
  5469.     &if (%direc>=0) {
  5470.         &&
  5471.     }
  5472.     //&se 22
  5473.     &goto2 城Ｂ２,@1,%down
  5474.  
  5475. #@2
  5476.     &if (%direc>=0) {
  5477.         &&
  5478.     }
  5479.     //&se 22
  5480.     &goto2 城Ｂ２,@5,%down
  5481.  
  5482. #@3
  5483.     &if (%direc>=0) {
  5484.         &&
  5485.     }
  5486.     B4light=0
  5487.     //&se 22
  5488.     &goto2 城Ｂ４,@0,%down
  5489.  
  5490. #@4
  5491.     &if (%direc!=8) {
  5492.         &&
  5493.     }
  5494.     &if ((鍵flag and 512)==0) {
  5495.         !|(0);「開かないな。」pc
  5496.         !|(7);「鍵穴も、ないみたいですね。」pc
  5497.         !|(8);「つまり、こっちからは;開けれないってわけね。」pc
  5498.         !|(0);「そのようだな。」pc
  5499.         &&
  5500.     }
  5501.     &jsr OPENDOOR
  5502.     &goto2 城Ｂ３,@5,%up
  5503.  
  5504.  
  5505. #@5
  5506.     &if (%direc!=2) {
  5507.         &&
  5508.     }
  5509.     &if ((鍵flag and 512)==0) {
  5510.         !|(0);「ここに、扉があるな。」pc
  5511.         !|(7);「ここのレバーを外せば、;開きそうですね。」pc
  5512.         !|(8);「そうみたいだね。」pc
  5513.         &pcm 5
  5514.         &wait 100
  5515.         &pcm 5
  5516.         &wait 30
  5517.         &pcm 5
  5518.         !|(8);「ダメだわ、;堅くて動かないわね。」pc
  5519.         %selectlist= { 俺がやってみる,あきらめるか }
  5520.         !o(0)|(0);
  5521.         &switch %select {
  5522.         &case 0:
  5523.             !c
  5524.             セシル+=10
  5525.             ミーナ+=10
  5526.             &break
  5527.         &case 1:
  5528.             !c|(7);「ちょっと待って。p;ここが開いたら、黄金の泉の;近くに
  5529.             !出ると思います。」pc
  5530.             !|(8);「そうよね、|(0)、;何とかならない。」pc
  5531.             !|(0);「仕方ない、やってみるか。」pc
  5532.             セシル-=10
  5533.             ミーナ-=10
  5534.             &break
  5535.         &default:
  5536.             !c|(8);「ちょっと、|(0)！;何とか言ってよね。」pc
  5537.             !|(0);「ちょっと待ってくれ、;いま考えているんだ。p;
  5538.             !・w・w・wここをこうして;・w・w・w・wよし！。」pc
  5539.             セシル+=20
  5540.             ミーナ+=20
  5541.             &jmp @f
  5542.         }
  5543.         &pcm 5
  5544.         &wait 40
  5545.         &pcm 5
  5546.         &wait 80
  5547.         &pcm 5
  5548.         &wait 20
  5549.         &pcm 5
  5550.         !|(0);「本当に堅いな、;よし、こうなったら意地だ！」pc
  5551. &label
  5552.         &pcm 5
  5553.         &wait 10
  5554.         &pcm 5
  5555.         &wait 100
  5556.         !|(0);「開いたぞ！」pc
  5557.         鍵flag=鍵flag or 512
  5558.         &&
  5559.     }
  5560.     &jsr OPENDOOR
  5561.     &goto2 城Ｂ３,@4,%down
  5562.  
  5563. #@10
  5564.     &if ((event==14) and ((event0 and 32)==0)) {
  5565.         !|(7);「水が流れていますね。」pc
  5566.         !|(8);「ここは、地中湖みたいね。」pc
  5567.         !|(0);「そのようだな。p;泳いで渡る羽目に;ならなきゃいいがな。」pc
  5568.         !|(8);「冗談言わないでよ！」pc
  5569.         !|(0);「ん？ww;|(8)泳げないのか？」pc
  5570.         !|(8);「もっ、wもっ、wもちろん、w;泳げるわよ。」pc
  5571.         !|(0);「ならいい。p;たぶん、;泳がずにすむとは思うがな。」pc
  5572.         event0=event0 or 32
  5573.     }
  5574.  
  5575. #@11
  5576.     &if (%direc!=8) {
  5577.         &&
  5578.     }
  5579.     &if ((鍵flag and 2048)==0) {
  5580.         &if ((eventT and 32)==0) {
  5581.             !|(7);「|(0)見て！」pc
  5582.             !|(0);「どうした|(7)。」pc
  5583.             !|(7);「ここに掛かってるの、;鍵じゃないかしら。」pc
  5584.             !|(8);「ほんと、鍵じゃないこれ。」pc
  5585.             !|(0);「役に立つかもしれないな。;持っていこうか。」pc
  5586.             eventT=eventT or 32
  5587.         } &else {
  5588.             !|(0);「よしっ、取ろうか！」pc
  5589.         }
  5590.         &if (%rasthaveitem==0) {
  5591.             !|(8);「だめよ！;もう持てないでしょ。p;何か処分しないと。」pc
  5592.             &&
  5593.         }
  5594.         !|(0)達は、:なんの飾りもない少し錆びた:鉄の鍵を手に入れた。pc
  5595.         &partyitemin (牢の鍵)
  5596.         鍵flag=鍵flag or 2048
  5597.         &&
  5598.     }
  5599.     !|(0);「もう、役に立ちそうな物は、;無いようだ。」pc
  5600.  
  5601. #@12
  5602.     &if (%direc>=0) {
  5603.         &&
  5604.     }
  5605.     &if ((event==14) and ((event0 and 1)==0)) {
  5606.         !|(0);「この湖を渡るには、;ここしかなさそうだな。」pc
  5607.         !|(7);「不気味な地下の湖と言う感じ;ですね。」pc
  5608.         !|(8);「どうせ、あたし達が何を;言っても行くんでしょ。」pc
  5609.         !|(0);「そういうことだ。;行くぞ！」pc
  5610.         !|(8);「はぁ、やっぱりね。」pc
  5611.         &partymove 2,2,2,2,2,2
  5612.         event0=event0 or 1
  5613.     }
  5614.  
  5615. #@13
  5616.     &if (%direc>=0) {
  5617.         &&
  5618.     }
  5619.     &if ((event==14) and ((event0 and 2)==0)) {
  5620.         !|(7);「きゃっ！」
  5621.         &exec bin\wave.x 1
  5622.         !c
  5623.         !|(0);「このぐらいの揺れで、;驚いてどうするんだ、p;この先・w・w・、;
  5624.         !何か来る！」wwc
  5625.         &bgm 0
  5626.         &battle $1000,11,クラーケン,1
  5627.         &jsr gold_Gover
  5628.         &bgm 15
  5629.         !|(8);「なんだい、この化け物は？」pc
  5630.         !|(0);「たしかこいつ、;海の化け物のはずだ！p;なぜこんな所にいるんだ！」pc
  5631.         !|(7);「ペットかしら？」pc
  5632.         !|(0);「はぁ～？」pc
  5633.         !|(8);「|(12)なら;やりかねないね。」pc
  5634.         !|(0);「それもそうだな。p;この先にもいるだろうから、;気を抜くなよ。」pc
  5635.         !|(7);「ええ、分かりました。」pc
  5636.         !|(8);「ああ、分かってるって。」pc
  5637.         event0=event0 or 2
  5638.     }
  5639.  
  5640. #@14
  5641.     &if (%direc>=0) {
  5642.         &&
  5643.     }
  5644.     &if ((event==14) and ((event0 and 4)==0)) {
  5645.         &pcm 9
  5646.         &wait 60
  5647.         !|(0);「どうやら、おでましのようだ！p;いくぞ！」pc
  5648.         &bgm 0
  5649.         &battle $1000,11,クラーケン,1
  5650.         &jsr gold_Gover
  5651.         &bgm 15
  5652.         !|(0);「これで、二匹目か。」pc
  5653.         !|(8);「いったい、この先、;何匹いるんだろうね。」pc
  5654.         !|(7);「もう出てこなかったら;いいですけど。」pc
  5655.         event0=event0 or 4
  5656.     }
  5657.  
  5658. #@15
  5659.     &if (%direc>=0) {
  5660.         &&
  5661.     }
  5662.     &if ((event==14) and ((event0 and 8)==0)) {
  5663.         !|(0);「ん？w;岩陰に、何かいるようだ。」pc
  5664.         !|(8);「ひょっとして？」pc
  5665.         &pcm 9
  5666.         &wait 80
  5667.         &bgm 0
  5668.         &battle $1000,11,クラーケン,1
  5669.         &jsr gold_Gover
  5670.         &bgm 15
  5671.         !|(8);「やっぱりね。p;さっさとここ;渡りきっちゃおうよ。」pc
  5672.         !|(7);「でも、まだまだ、;先は長そうですけど。」pc
  5673.         !|(8);「|(7)～、;あんまり言わないでよ。p;
  5674.         !あたしだって、;そう思ってるんだから。」pc
  5675.         event0=event0 or 8
  5676.     }
  5677.  
  5678. #@16
  5679.     &if (%direc>=0) {
  5680.         &&
  5681.     }
  5682.     &if ((event==14) and ((event0 and 16)==0)) {
  5683.         &exec bin\wave.x 2
  5684.         !|(0);「さっきより、;揺れが大きいな。p;今度は、
  5685.         !さっきまでと同じとは、;行きそうにないな。」pc
  5686.         &bgm 0
  5687.         &battle $1000,11,クラーケン,1,クラーケン,1
  5688.         &jsr gold_Gover
  5689.         &bgm 15
  5690.         !|(0);「二匹で来るとはな。」pc
  5691.         !|(8);「これで最後かな。」pc
  5692.         !|(7);「そうだと、いいですね。」pc
  5693.         event0=event0 or 16
  5694.     }
  5695.  
  5696. #@17
  5697.     &if (%direc>=0) {
  5698.         &&
  5699.     }
  5700.     &if (event==14) {
  5701.         &pcm 9
  5702.         &wait 50
  5703.         &pcm 9
  5704.         &wait 25
  5705.         &pcm 9
  5706.         &wait 60
  5707.         &pcm 9
  5708.         !|(0);「な、wなんだ、今度のは、;今までより大きいぞ。」pc
  5709.         &pcm 9
  5710.         !|(8);「冗談でしょ、;あんなのと戦うのかい！」pc
  5711.         !|(7);「こっちに来ます！」
  5712.         &pcm 9
  5713.         !wwc
  5714.         &bgm 0
  5715.         &battle $1000,23,クラーケン,1,マザークラケン,1,クラーケン,1
  5716.         &jsr gold_Gover
  5717.         &bgm 15
  5718.         !|(0);「どうやら、あれが、;親玉だったようだな。」pc
  5719.         !|(8);「って言うことは、;もう出てこないって事だよね。」pc
  5720.         !|(7);「ええ、;たぶんそうだと思います。」pc
  5721.         !|(8);「たぶんじゃなく、;絶対だよ！w絶対！！p;
  5722.         !もうあんなのに;出会いたくないからね。」pc
  5723.         &partymove 4,4,4,4,4,4,4,4,8,8,6,6
  5724.         !|(0);「どうやら、;渡りきったようだな。」pc
  5725.         !|(7);「よかった、実は、わたしも、;あの化け物、;気持ち悪いと思ってたんです。」pc
  5726.         !|(8);「そうでしょ、;あたしもそうだよ。p;今は、ホットしてるよ。」pc
  5727.         !|(0);「そうか、;俺は気にならなかったが。」pc
  5728.         !|(8);「あんたは、特別だよ！」pc
  5729.         !|(0)　「ははははは！」:
  5730.         !|(7)　「ふふふふふ！」:
  5731.         !|(8)　「ははははっ！」pc
  5732.         !|(0);「さぁ、行こうか。」pc
  5733.         event0=0
  5734.         event++            //event=15
  5735.     }
  5736.  
  5737.  
  5738. #@40
  5739.     !|(0);「よし、行くぞ！」pc
  5740.     !|(7);「ちょっと恐いけど、;頑張ります。」pc
  5741.     !|(8);「だんだんつらく;なってきたわね。」pc
  5742.     &bgm %nowbgm
  5743. #@41
  5744.     &if (%direc>=0) {
  5745.         &jsr 黄金の泉
  5746.     }
  5747.  
  5748.  
  5749. #@49
  5750.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  5751.     &jsr タマ
  5752.     }
  5753.  
  5754.     &if (%direc>=0) {&&}
  5755.     &if (noencounter>0) {
  5756.         noencounter--
  5757.     } &else {
  5758.         &if (%rnd(encounter)!=1) {&&}
  5759.         &jsr 敵遭遇
  5760.     }
  5761.  
  5762.  
  5763.                                     
  5764. [城Ｂ４]            //フレデリック城地下４階
  5765. //[城地下牢]            //フレデリック城地下牢
  5766.                                     
  5767.     //&mappal map\dark.PAL
  5768.     &if (door_sound!=1) {
  5769.         &map map\B4.MAP        //城Ｂ４.MAP
  5770.     }
  5771.     &if (ending!=0) {
  5772.         %mandef(1) = { 14,0,0,2,-1 }
  5773.         %mandef(21) = { 10,0,$8e,2,-1 }
  5774.         %mandef(26) = { 10,0,$8e,2,-1 }
  5775.         %mandef(27) = { 10,0,$8e,2,-1 }
  5776.         %mandef(28) = { 10,0,$8e,2,-1 }
  5777.         &on
  5778.         &partyspeed 2
  5779.         &partymove 6,6,6,6,6,6,6,6,6,6,6,6
  5780.         &partymove -8
  5781.         &wait 100
  5782.         %manpoint(21) = { 767,767 }
  5783.         &on
  5784.         &wait 50
  5785.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  5786.         &wait 200
  5787.         &partymove 6,6,-8
  5788.         &partyspeed 1
  5789.         &wait 300
  5790.         &exec bin\sepia.x
  5791.         !　:　:　:　:スプライトキャラクターw　　　　　　:
  5792.         !　　　　w鈴木　浩wさん　　　　　:
  5793.         !　　　　w片桐　健善wさん　　　　:
  5794.         !　　　　wＳＪＯＭw　　　　　　　
  5795.         &wait 300
  5796.         &jsr FADEOUT
  5797.         !c
  5798.         &wait 300
  5799.         &spppal map\darkall.PAL
  5800.         &partyset 0
  5801.         ending++        //ending=8
  5802.         &goto2 夢,@1,%up
  5803.     }
  5804.     &if (%nowbgm!=16) {
  5805.         &bgm 16
  5806.     }
  5807.     %bcirclesize=128
  5808.     &blackcircle B4light
  5809.     mons1=ラミア                //monster set
  5810.     hm1=3
  5811.     mons2=ラミアクィーン
  5812.     hm2=2
  5813.     mons3=デビルアイ
  5814.     hm3=2
  5815.     mons4=スコーピオン
  5816.     enc_pat=4
  5817.     encounter=56        // 1/56
  5818.     &jsr 黒十字
  5819.     //encsub=encounter
  5820.  
  5821.     &if ((event==15) and ((event0 and 2)==0)) {
  5822.         %mandef(2) = { 14,0,$a0,2,0 }
  5823.     }
  5824.     &if (%partyexist(11)==0) {
  5825.         %mandef(1) = { 14,0,0,2,-1 }
  5826.     }
  5827.     &jsr 鉄格子
  5828.     %mandef(26) = { 10,0,$8e,2,-1 }
  5829.     %mandef(27) = { 10,0,$8e,2,-1 }
  5830.     %mandef(28) = { 10,0,$8e,2,-1 }
  5831.  
  5832.     Tsub=T城Ｂ４                //宝セット
  5833.     Tbit=1
  5834.     &jsr 宝開閉？
  5835.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  5836.     Tbit=2
  5837.     &jsr 宝開閉？
  5838.     %mandef(11) = { 15,0,$84+Tno,2,-1 }
  5839.     Tbit=4
  5840.     &jsr 宝開閉？
  5841.     %mandef(12) = { 15,0,$88+Tno,2,-1 }
  5842.     Tbit=8
  5843.     &jsr 宝開閉？
  5844.     %mandef(13) = { 15,0,$84+Tno,2,-1 }
  5845.     Tbit=16
  5846.     &jsr 宝開閉？
  5847.     %mandef(14) = { 15,0,$84+Tno,2,-1 }
  5848.     &jsr DOORCLOSE
  5849.     &on
  5850.     &if (door_sound==0) {
  5851.         !o(1);　［フレデリック城地下４階:　　　　　　（地下牢）］pc
  5852.     }
  5853.     door_sound=0
  5854.  
  5855.     &if ((event==15) and ((event0 and 1)==0)) {
  5856.         &partymove 2,2,6,6,6,6,6,6,6
  5857.         !|(7);「ここです、ここが地下牢です。p;間違いありません。」pc
  5858.         !|(8);「そうそう、ここ、ここ。」pc
  5859.         !|(0);「そうか。p;他に閉じ込められている者が;いるかもしれないな。p;
  5860.         !よし、行くぞ！」pc
  5861.         !|(7);「ええ、行きましょう！」pc
  5862.         !|(8);「そうよ、急がないとね。;あたし、もう犠牲者を;出したくないから。」pc
  5863.         event0=event0 or 1
  5864.     }
  5865.  
  5866. #1
  5867.     &if (event<=17) {
  5868.         !|(11);「この先の、つり橋の揺れには、;気を付けろよ！」pc
  5869.         &&
  5870.     }
  5871.     &if (event<=18) {
  5872.         !|(11);「地下５階には、;ドラゴンがいる。p;気を付けろ！」pc
  5873.         &&
  5874.     }
  5875.     &if (event<=20) {
  5876.         !|(11);「地下６階の奥に、;フレアドラゴンがいる。p;気を抜くなよ！」pc
  5877.         &&
  5878.     }
  5879.     &if (event==21) {
  5880.         !|(11);「|(12)の、;呪いには気を付けろ！p;まともに、;受けるんじゃないぞ。p;
  5881.         !自我を、失ってしまうからな。」pc
  5882.         !|(0);「ああ、大丈夫だ。」pc
  5883.         &&
  5884.     }
  5885.  
  5886.  
  5887. #10                    //大宝
  5888.     Tbit=1
  5889.     &if ((Tsub and Tbit)!=0) {
  5890.         !|(7);「もう、他にはないですね。」pc
  5891.         !|(0);「ああ、そのようだな。」pc
  5892.         &&
  5893.     }
  5894.     &if (%haveitem(魔導士の鍵)==0) {
  5895.         !|(0);「この宝、;鍵が掛かっているようだな。」pc
  5896.         !|(7);「合いそうな鍵は、」pc
  5897.         !|(0);「残念だが、持ってない。」pc
  5898.         !|(8);「中身が気になるけど、;仕方ないわね。」pc
  5899.         &&
  5900.     }
  5901.     !|(0);「|(11)にもらった鍵が、;合いそうだ。」pc
  5902.     &jsr pcm_unlock
  5903.     !|(0);「よし、開いたぞ。」pc
  5904.     &jsr pcm_treasure
  5905.     %mandef(10) = { 15,0,$89,2,-1 }
  5906.     &on
  5907.     !|(0);「ん？」pc
  5908.     !|(7);「うわぁ、すごくきれい。」pc
  5909.     !|(8);「ほんと、すっwごく高そうね。」pc
  5910.     Tno=(プリンセスロッド)
  5911.     &jsr 宝ゲット
  5912.     T城Ｂ４=Tsub
  5913.     &jsr 宝開閉？
  5914.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  5915.     &on
  5916.     &if (Tno!=0) {
  5917.         !|(11);「これには、;回復の魔法が込められている。;役に立ててくれ。」pc
  5918.         !|(7);「もしかして、;あなたの物なんですか？」pc
  5919.         !|(11);「そうだが、使ってくれ。;お前なら使えるだろ。」pc
  5920.         !|(7);「わたしwですか、wたぶん、w;使えると思いますけど。」pc
  5921.         !|(11);「そうだ！;お前が、持っているといい。」pc
  5922.         !|(7);「ええ、;ありがとうございます。」pc
  5923.         !|(8);「よかったじゃないの;|(7)。」pc
  5924.         !|(7);「ええ。」pc
  5925.     }
  5926.  
  5927. #11                    //小宝
  5928.     Tbit=2
  5929.     &jsr 宝開閉？
  5930.     &if (Tno!=0) {
  5931.         !|(0);「・w・w・w・w・w・。」pc
  5932.         &&
  5933.     }
  5934.     !|(0);「牢の中の宝か！」pc
  5935.     &jsr pcm_treasure
  5936.     %mandef(11) = { 15,0,$85,2,-1 }
  5937.     &on
  5938.     Tno=(ポーション)
  5939.     &jsr 宝ゲット
  5940.     T城Ｂ４=Tsub
  5941.     &jsr 宝開閉？
  5942.     %mandef(11) = { 15,0,$84+Tno,2,-1 }
  5943.     &on
  5944.     !|(0);「ポーションだけか！p;待てよ紙切れが、;入っているぞ。」pc
  5945.     !|(7);「読んでみますね。」pc
  5946.     !『この手紙を見つけた人へ。p;セイズの村の;ジェフリという人に、;
  5947.     !渡してください。;お願いします。p;私は、あなたを;
  5948.     !愛・w・w・wしwてw・w・w・。』pc
  5949.     !|(8);「どうしたの|(7)。」pc
  5950.     !|(7);「ごめんなさい。」pc
  5951.     !|(8);「もういいわよ。p;この手紙、;その人に渡してあげようね。」pc
  5952.     !|(7);「ええ。」pc
  5953.     !|(0);「・w・w・w・w・行こうか。」pc
  5954.  
  5955.  
  5956.  
  5957. #12                    //大宝
  5958.     Tbit=4
  5959.     &jsr 宝開閉？
  5960.     &if (Tno!=0) {
  5961.         !|(0);「カラっぽだな！」pc
  5962.         !|(7);「ええ。」pc
  5963.         !|(8);「ええ。p;・w・w・wって、|(7)！;そればっかりだね。」pc
  5964.         &&
  5965.     }
  5966.     &jsr pcm_treasure
  5967.     %mandef(12) = { 15,0,$89,2,-1 }
  5968.     &on
  5969.     !|(0);「薬だな！」pc
  5970.     Tno=(リアリゼーション)
  5971.     &jsr 宝ゲット
  5972.     T城Ｂ４=Tsub or 4
  5973.     &jsr 宝開閉？
  5974.     %mandef(12) = { 15,0,$88+Tno,2,-1 }
  5975.     &on
  5976.     !|(8);「あたしの薬もたまには、;買ってね、|(0)！」pc
  5977.     !|(0);「ああ、分かったよ。」pc
  5978.  
  5979.  
  5980.  
  5981. #13                    //小宝
  5982.     Tbit=8
  5983.     &jsr 宝開閉？
  5984.     &if (Tno!=0) {
  5985.         !|(0);「今度こそ、;本当にカラの様だな。」pc
  5986.         &&
  5987.     }
  5988.     &jsr pcm_treasure
  5989.     %mandef(13) = { 15,0,$85,2,-1 }
  5990.     &on
  5991.     &if ((Tsub and 32)==0) {
  5992.         !|(0);「カラだなこれ。」pc
  5993.         !|(7);「ちょっと待ってくだい。p;見にくいけど、;ここ見てください。」pc
  5994.         !|(8);「暗くてよく見えないね。」pc
  5995.         &if (%partyexist(11)==0) {
  5996.             !|(0);「どれどれ、本当だな。;よく分かったなこんな小さく;暗い色の物。」pc
  5997.             !|(8);「|(7)は、;目がいいんだね。p;あたしなんか少し近眼でさ、;
  5998.             !あまり良く見えないんだ。」pc
  5999.             !|(0);「なぜ、眼鏡をかけないんだ。」pc
  6000.             !|(8);「眼鏡を、;掛けるほどじゃないんだ。」pc
  6001.             !|(0);「|(8)は、;眼鏡が似合うと思うがな。」pc
  6002.             !|(7);「ええ、私もそう思います。p;
  6003.             !|(8)さん、きっと;似合うんじゃないかしら。」pc
  6004.             !|(8);「そぉお、じゃこれが済んだら;掛けてみるわね。p;
  6005.             !皆見にきてよ、きっとだよ！」pc
  6006.             !|(7);「ええ、絶対に行きます。p;ねぇ、|(0)。」pc
  6007.             !|(0);「あっ、ああ。;・w・w・必ずな。」pc
  6008.             ミーナ+=10
  6009.         } &else {
  6010.             !|(11);「ほう、これはもともと私が;持っていた物だ。p;
  6011.             !こんなところに隠していたか。」pc
  6012.             !|(8);「ふ～ん、そうなんだ。」pc
  6013.             !|(7);「これって、;何に使う物なんですか。」pc
  6014.             !|(11);「私の武器だ！p;これがあれば、;戦闘が楽になる。」pc
  6015.             !|(0);「ま、とりあえず、出すぞ！」pc
  6016.         }
  6017.     }
  6018.     Tno=(エビルネイル)
  6019.     &jsr 宝ゲット
  6020.     T城Ｂ４=Tsub or 32
  6021.     &jsr 宝開閉？
  6022.     %mandef(13) = { 15,0,$84+Tno,2,-1 }
  6023.     &on
  6024.     &if ((Tsub and Tbit)!=0) {
  6025.         &if (%partyexist(11)==0) {
  6026.             !|(0);「しかし、何だろなこれ。」pc
  6027.             !|(8);「持ってれば、;なにかに役立つんじゃない。」pc
  6028.             !|(0);「それも、そうだな。」pc
  6029.             &&
  6030.         }
  6031.         !|(11);「これは、;私が使わせてもらう。」pc
  6032.         !|(0);「ああ、かまわない。」pc
  6033.         !|(8);「あんたの物だから、;当然でしょ。」pc
  6034.     }
  6035.  
  6036.  
  6037. #14                    //小宝
  6038.     Tbit=16
  6039.     &jsr 宝開閉？
  6040.     &if (Tno!=0) {
  6041.         !|(0);「もう一つあればな。」pc
  6042.         !|(8);「なんか言った？」pc
  6043.         !|(0);「いや、別に何でもない。;気にするな。」pc
  6044.         &&
  6045.     }
  6046.     &jsr pcm_treasure
  6047.     %mandef(14) = { 15,0,$85,2,-1 }
  6048.     &on
  6049.     !|(0);「おっ、これは！」pc
  6050.     Tno=(サファイアの指輪)
  6051.     &jsr 宝ゲット
  6052.     T城Ｂ４=Tsub
  6053.     &jsr 宝開閉？
  6054.     %mandef(14) = { 15,0,$84+Tno,2,-1 }
  6055.     &on
  6056.     &if (Tno==0) {
  6057.         &&
  6058.     }
  6059.     !|(8);「なに、どうしたんだい。」pc
  6060.     !|(7);「何が入ってたんですか。」pc
  6061.     !o(0)|(0);（どうするかな？）
  6062.     %selectlist= { 王女様にあげる,道具屋の娘にあげる,自分がもらう }
  6063.     &switch %select {
  6064.     &case 0:
  6065.         !c|(0);「|(7)、;これ君にあげよう。」pc
  6066.         !|(7);「サファイアの指輪ですか！;・w・w・w・w・wえっと、w;
  6067.         !ありがとう|(0)！p;わたし、;なんて言ったらいいのか、」pc
  6068.         !|(0);「んっ、w;あまり深い意味はないから、;そんなに気にするな。」pc
  6069.         !|(8);「そうよ、そうよ、;|(0)は鈍いからさ。」pc
  6070.         !|(0);「鈍い！;鈍いとは、どういうことだ！p;俺は、鈍くなんかない。p;
  6071.         !化け物達から、しっかり君達を;守って来ただろ！」pc
  6072.         !|(8);「はぁ～、ダメだわこりゃ？」pc
  6073.         &if (%partyexist(11)==1) {
  6074.             !|(11);「なかなか、;楽しませてもらったよ。p;人間の考察の参考に
  6075.             !なった。」pc
  6076.             !|(8);「はぁ～、こっちもだね！」pc
  6077.         }
  6078.         &partyitemout(サファイアの指輪)
  6079.         セシル+=120
  6080.         &&
  6081.     &case 1:
  6082.         !c|(0);「これいらないか、;|(8)。」pc
  6083.         !|(8);「サファイアの指輪じゃない！p;いるいる、もちろんいるわよ。」pc
  6084.         !|(0);「そう言うと思った。」pc
  6085.         !|(8);「断る分けないでしょ、;ありがと|(0)！」pc
  6086.         !|(7);「|(8)さん、;嬉しそうですね。」pc
  6087.         !|(8);「そりゃそうよ、だって、;サファイアよ、サファイア！p;
  6088.         !嫌な分けないでしょ。」pc
  6089.         !|(0);「はははは、w;そんなに喜んでくれると、;あげたかいがあるな。」pc
  6090.         &if (%partyexist(11)==1) {
  6091.             !|(11);「そんな役に立たない物が;なぜ嬉しいのか、;私には分からない。」pc
  6092.             !|(8);「|(11)には、一生分からないわよきっと。」pc
  6093.             !|(11);「私には、;お前達の方が分からないがな。」pc
  6094.         }
  6095.         &partyitemout(サファイアの指輪)
  6096.         ミーナ+=120
  6097.         &&
  6098.     &default:
  6099.         !c|(0);「う～ん、残念だが、;何も入ってなかったな。」pc
  6100.         !|(8);「ほんとかい！;ほんとだろうね！」pc
  6101.         !|(7);「|(0)、;嘘をついてませんか。」pc
  6102.         !|(0);「嘘、ww嘘なんか言ってない！」pc
  6103.         !|(7);「ごめんなさい、てっきり。」pc
  6104.         !|(0);「てっきりなんなんだ！」pc
  6105.         !|(7);「いっ、wいえ、;何でもありません。」pc
  6106.         &if (%partyexist(11)==1) {
  6107.             !|(11);「どうして隠すんだ;|(0)！」pc
  6108.             !|(0);「しっ、コソコソ;（いいから、黙っててくれ）。」pc
  6109.             !|(11);「まぁ、いいが。」pc
  6110.             !|(8);「なんだい？」pc
  6111.             !|(0);「いやっ、なんでもない。」pc
  6112.             !|(8);「ほんとかしらね。」pc
  6113.         }
  6114.         セシル-=80
  6115.         ミーナ-=80
  6116.         &&
  6117.     }
  6118.  
  6119. #20
  6120.     //dummy
  6121. #21
  6122.     //dummy
  6123. #22
  6124.     !|(0);「この錆びた鍵で開きそうだ。」pc
  6125.     牢屋flag=牢屋flag or 4
  6126.     &jsr 牢鍵end?
  6127.  
  6128. #23
  6129.     !|(0);「ここも、;この錆びた鍵が使えそうだ。」pc
  6130.     牢屋flag=牢屋flag or 8
  6131.     &jsr 牢鍵end?
  6132.  
  6133. #24
  6134.     !|(0);「錆びた鍵で開きそうだ。」pc
  6135.     牢屋flag=牢屋flag or 16
  6136.     &jsr 牢鍵end?
  6137.  
  6138. #25
  6139.     !|(0);「この錆びた鍵で開けるぞ。」pc
  6140.     牢屋flag=牢屋flag or 32
  6141.     &jsr 牢鍵end?
  6142.  
  6143. #26    //dummy
  6144. #27    //dummy
  6145. #28    //dummy
  6146.  
  6147.  
  6148. #@0
  6149.     &if (%direc>=0) {
  6150.         &&
  6151.     }
  6152.     //&se 22
  6153.     &goto2 城Ｂ３,@3,%down
  6154.  
  6155.  
  6156. #@1
  6157.     &if (%direc!=8) {
  6158.         &&
  6159.     }
  6160.     &if ((鍵flag and 128)==0) {
  6161.         &if (%haveitem(牢の鍵)==0) {
  6162.             !|(0);「くそっ！ww;ここまで来て中に入れないとは、;
  6163.             !この扉の鍵を早く探そう！」pc
  6164.             !|(7);「ええ。p;たぶん、近くに鍵が;あるんじゃないかしら。」pc
  6165.             !|(8);「さっさと見つけて、;さっさと入ろうよ！。」pc
  6166.             &&
  6167.         } &else {
  6168.             !|(0);「どうやらこの鍵で;試すしかなさそうだ！」pc
  6169.             !|(8);「そうだね、;他に方法はないしね。」pc
  6170.             &jsr pcm_unlock
  6171.             !|(0);「どうやら、開いたようだ。」pc
  6172.             !|(7);「急ぎましょう！」pc
  6173.             !|(0);「ああ、分かっている。」pc
  6174.             鍵flag=鍵flag or 128
  6175.             &&
  6176.         }
  6177.     }
  6178.     &jsr OPENDOOR
  6179.     &goto2 城Ｂ４,@2,%up
  6180.  
  6181. #@2
  6182.     &if (%direc!=2) {
  6183.         &&
  6184.     }
  6185.     &jsr OPENDOOR
  6186.     &goto2 城Ｂ４,@1,%down
  6187.  
  6188. #@3
  6189.     &if (%direc>=0) {
  6190.         &&
  6191.     }
  6192.     &if ((event!=15) or ((event0 and 2)!=0)) {
  6193.         &&
  6194.     }
  6195.     Ysub=32
  6196.     &jsr Ymove
  6197.     &partymove -8
  6198.     !|(0);「中に誰かいるようだ。」pc
  6199.     !|(7);「本当ですか。」pc
  6200.     !|(0);「ああ。」pc
  6201.     !|(8);「早くしないと、;|(0)！」pc
  6202.     !|(0);「分かっている！」pc
  6203.     !|(0);「おいっ、君大丈夫か！」pc
  6204.     &manmove 2, 2,2,2,2,2,2,2,2,2
  6205.     !女の子;「あなた誰？」pc
  6206.     !|(0);「どうやら無事のようだな。p;ちょっと待ってろ、;いま助けてやるからな。」pc
  6207.     !|(7);「心配しないで、;今ここ開けるから。」pc
  6208.     !女の子;「うん！」pc
  6209.     &jsr pcm_unlock
  6210.     !|(0);「よし、開いたぞ。p;今、鉄格子を開けるからな。」pc
  6211.     &exec bin\ZMmask.x 9
  6212.     %mandef(20) = { 14,0,$a0,2,0 }
  6213.     %manpoint(20) = { 767,767 }
  6214.     牢屋flag=牢屋flag or 1
  6215.     &on
  6216.     &pcm 10
  6217.     &wait 80
  6218.     &exec bin\ZMmask.x
  6219.     &manmove 2, 2
  6220.     !|(0);「大丈夫のようだな！」pc
  6221.     !|(7);「本当によかった！」pc
  6222.     !|(8);「さ、おねぇちゃん達と;一緒にいこ。」pc
  6223.     !女の子;「うん、ありがとう。p;お礼に、おにぃちゃん達www;j(1)殺してあげる！j(0)」wwc
  6224.     &bgm 0
  6225.     &battle $1000,23,ラミア,4,サキュバス,1,ラミアクィーン,2
  6226.     &if (%exitcode==1) {
  6227.         !サキュバス;「ふふふっ、こんなのが、;あの方を倒そうと;してたなんてね。p;
  6228.         !身の程知らずも;いいところだったわね。」pc
  6229.     }
  6230.     &jsr gold_Gover
  6231.     &bgm 16
  6232.     !サキュバス;「ふふふっ、wwその程度じゃ;あの方は倒せないわ。」pc
  6233.     %manpoint(2) = { 767,767 }
  6234.     %manpoint(20) = { -1,-1 }
  6235.     &on
  6236.     MANsub=20
  6237.     &jsr 消滅
  6238.     !|(8);「いったいどういう事！」pc
  6239.     !|(0);「分からない。;しかし、これだけは言える、p;
  6240.     !“この牢には、;生存者はいなかった”と。」pc
  6241.     !|(8);「そうだね、他の牢屋を見よう。」pc
  6242.     !|(7);「そうですね、wwそうですよね、;きっと、他の牢屋には・w・w・。」pc
  6243.     !|(8);「気お落とさないで、;|(7)、wwね。」pc
  6244.     !|(7);「ええ、ありがとう、;|(8)さん。」pc
  6245.     !|(0);「さ、急ごう！」pc
  6246.     event0=event0 or 2
  6247.  
  6248.  
  6249. #@4
  6250.     &if (%direc>=0) {
  6251.         &&
  6252.     }
  6253.     &if (event!=15) {
  6254.         &&
  6255.     }
  6256.     !|(0);「向こうの方が、;なにか変だぞ。」pc
  6257.     !|(7);「あの牢屋、;他のと違いますね。」pc
  6258.     !|(0);「そうだな。行ってみようか。」pc
  6259.     &partyspeed 2
  6260.     &partyset 0,7,8
  6261.     &on
  6262.     &partymove 6,6,6,6,6,6,6,6,6,6,6,6
  6263.     Ysub=32
  6264.     &jsr Ymove
  6265.     &partymove -8
  6266.     &bgm 10
  6267.     !|(0);「どういうことだ。p;ガーゴイルが、;鎖に繋がれているぞ！」pc
  6268.     !|(7);「行ってみましょう。」pc
  6269.     !|(0);「しかし、あいつは！」pc
  6270.     !|(7);「他のガーゴイルとは、;違う様ですし、;お願い|(0)！」pc
  6271.     !|(8);「そうそう、;鎖に繋がれてるんだし、;見に行こうよ。」pc
  6272.     !|(0);「しかし、もしものことが;あったらどうするんだ！」pc
  6273.     !|(8);「その時は、決まってるでしょ、;|(0)。p;頼りにしてるからね。」pc
  6274.     !|(0);「仕方ないな、分かったよ。」pc
  6275.     !|(7);「見てください、この鉄格子、;鍵が掛かってないみたい。」pc
  6276.     !|(0);「そのようだな。;ますます、怪しいな！p;ま、そん時は、そん時だな。」pc
  6277.     &exec bin\ZMmask.x 9 26 27
  6278.     %manpoint(21) = { 767,767 }
  6279.     &on
  6280.     &pcm 10
  6281.     &wait 50
  6282.     &exec bin\ZMmask.x
  6283.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  6284.     牢屋flag=牢屋flag or 2
  6285.     !金色のガーゴイル;「何だ、;私は見せ物ではないぞ。」pc
  6286.     !|(0);「何でお前だけ、;幽閉されているんだ。」pc
  6287.     !金色のガーゴイル;「お前に話すことなどない。p;それより、;ここに何故来たかは、知らんが、;
  6288.     !早くここから出ることだ。」pc
  6289.     !|(0);「どういう事だ！」pc
  6290.     !金色のガーゴイル;「だから言っただろ、;話すことはないと。」pc
  6291.     !|(0);「こんな奴、;ほっといて行こうか。」pc
  6292.     !|(7);「ちょっと待って|(0)！」pc
  6293.     &partymove 6,6,-8
  6294.     !|(7);「ねぇ、;どうしてあなただけこんな所に;
  6295.     !閉じ込められているのですか。」pc
  6296.     !|(8);「そうそう、白状しなさいよ！」pc
  6297.     !金色のガーゴイル;「ん？w;おっ、お前、;なぜここに戻って来たんだ。」pc
  6298.     !|(8);「えっ、あたし？w;決まってるでしょ仇討ちよ！」pc
  6299.     !金色のガーゴイル;「せっかく逃がしてやったのに、;なんてことだ。p;まさか戻ってくるとはな。」pc
  6300.     !|(8);「えっ、逃がしてくれたのw;あんたwだったの。」pc
  6301.     !金色のガーゴイル;「そういうことだ。」pc
  6302.     !|(7);「ねぇ、わけぐらい;話してくれないかしら。p;どうして、;ガーゴイルのあなたが、;
  6303.     !そんなことをしたのか。」pc
  6304.     &partymove -4
  6305.     !|(0);「おいっ、待てよ。p;|(7)、|(8)！;こいつの言うことを;信用するのか！」pc
  6306.     !|(7);「このガーゴイルさん、;悪い人じゃないみたい。」pc
  6307.     !|(8);「そうそう、あたしは信じるよ。;だから、話してくれない。」pc
  6308.     &partymove -8
  6309.     !金色のガーゴイル;「ガーゴイルさんか。p;私には、;ちゃんとした名前がある。」pc
  6310.     &if (%haveitem(黒い十字架)==1) {
  6311.         &bgm 6
  6312.         &inputpartyname 11
  6313.     }
  6314.     &bgm 7
  6315.     !|(11);「私には、;シンシアのガーゴイル一族の王、;|(11)という名がな。」pc
  6316.     !|(0);「ガーゴイルの王だって！」pc
  6317.     !|(11);「そうだ。p;・w・w・w・いいだろう、;なぜこうなったか;話してやろう。」pc
  6318.     !|(7);「ええ。」pc
  6319.     !|(8);「そうそう、;素直にならないとね。」pc
  6320.     !|(11);「そう、私は、;人間の娘、つまりお前を助けて、p;ナリスプリトンの怒りを;
  6321.     !買ってしまった。;そして、この有様だ。」pc
  6322.     !|(0);「ナリスプリトンだって、;奴は、w奴は生きていたのか！」pc
  6323.     !|(11);「ほう、;ナリスプリトンを知っているのか。p;人間で、;奴のことを知っているのは、;
  6324.     !ほとんどいないはずだが。」pc
  6325.     !|(0);「そんなことは、;どうでもいいだろ！p;俺の質問に答えろ！p;奴は、死んだはずだ！」pc
  6326.     !|(11);「確かに、ある意味ではな。p;肉体は滅び、;精神体も、ある人間達によって、;
  6327.     !封印されていたが、p;|(12)とかいう奴が、;封印を解き放ったのだ。p;
  6328.     !ナリスプリトンは、;完全な肉体を取り戻すため、;そいつに、強大な力を与え、p;
  6329.     !大量の人間の処女の血を、;集めさせた。」pc
  6330.     !|(8);「じゃ、|(12)は、;そのために多くの犠牲者を、;・w・w・w許せないわ。」pc
  6331.     !|(11);「我々とて、;それを阻止しようとした。」pc
  6332.     !|(0);「阻止だって、;|(12)の命令で、;娘達をさらっていたのは、p;あんた達、ガーゴイルだろ。」pc
  6333.     !|(11);「残念だが、そうだ。p;あの時、私達は、;|(12)と戦った。p;しかし、;
  6334.     !ナリスプリトンに与えられた;強大な力で、ほとんどの者が;倒され、残った者も、p;
  6335.     !奴の呪いにより、自我を失い、;奴の言うがままとなっている。p;
  6336.     !かろうじて、私と一部の者は、;難を逃れたが、;私がこうなった今、p;全員捕まるのも、;
  6337.     !時間の問題だろう。p;|(12)は、;私を、ここに閉じ込め、;助けに来る仲間を、;
  6338.     !待っているのだ。p;悪いことは、言わない、;早くここから離れることだ！」pc
  6339.     !|(7);「ねぇ、|(0)、;どうにかならないかしら。」pc
  6340.     //&partyspeed 1
  6341.     &if (%haveitem(黒い十字架)==1) {
  6342.         !|(0);「やってみるか。」pc
  6343.         !|(11);「ムダだ、その鎖には、;魔法がかかっている。p;その鎖に触ると、;
  6344.         !命を落としかねない。」pc
  6345.         !|(0);「それでも、ほっとけないな。;・
  6346.         &partymove 8,8,8,8,8,8,8,-4
  6347.         &exec bin\ZMmask.x 9
  6348.         &pcm 5
  6349.         &wait 60
  6350.         !・
  6351.         &pcm 5
  6352.         &wait 40
  6353.         !・
  6354.         &pcm 5
  6355.         &wait 100
  6356.         !・
  6357.         &pcm 5
  6358.         &wait 50
  6359.         !・
  6360.         &pcm 5
  6361.         &wait 30
  6362.         &exec bin\ZMmask.x
  6363.         !ダメだ！」pc
  6364.         !|(11);「触っても、大丈夫なのか。」pc
  6365.         !|(0);「ああ、なんともないが。」pc
  6366.         !|(11);「もしや、;黒い十字架を持っているのか。」pc
  6367.         !|(0);「ああ、これのことか。」pc
  6368.         !|(11);「それを、;私に渡してくれないか。」pc
  6369.         %selectlist = { ああ,ダメだ }
  6370.         !o(0)|(0)
  6371.         &switch %select {
  6372.         &case 0:
  6373.             !c|(0);「手に渡せばいいか。」pc
  6374.             セシル+=40
  6375.             ミーナ+=40
  6376.             &break
  6377.         &case 1:
  6378.             !c|(7);「どうして？」pc
  6379.             !|(8);「そうよ、どうしてよ！」pc
  6380.             !|(11);「仕方あるまい、;信じろという方が無理だ。」pc
  6381.             !|(7);「|(0)お願い！」pc
  6382.             !|(0);「分かった、そん時は、;そん時だ！」pc
  6383.             セシル-=20
  6384.             ミーナ-=20
  6385.             &break
  6386.         &default:
  6387.             !c|(0);「ん～。」pc
  6388.             !|(11);「無理することはない。;信用できなくて当然だ！p;
  6389.             !別に、;このまま置き去りにしても、;恨みはしない。」pc
  6390.             !|(7);「|(0)。」pc
  6391.             !|(8);「|(0)！」pc
  6392.             !|(0);「よし、決めた。」pc
  6393.             セシル+=10
  6394.             ミーナ+=10
  6395.         }
  6396.         !|(11);「すまない。p;ゲッシュ　サエラッグ　ユパ」
  6397.         &partyitemout (黒い十字架)
  6398.         &jsr pcm_unlock
  6399.         !pc
  6400.         !|(11);「お前達は、;早くここから出るんだ！;いいな！」pc
  6401.         %mandef(1) = { 14,0,$00,2,0 }
  6402.         &on
  6403.         &manmove 1, 2,2,2,2,2,2,2
  6404.         !|(0);「おいっ、どこに行く気だ！」pc
  6405.         &partymove 4,4,2,2,2,2,2,2
  6406.         &manmove 1, -8
  6407.         !o(1)|(11);「もちろん|(12)の所だ！」pc
  6408.         !o(1)|(0);「だったら、決まりだな。p;
  6409.         &bgm 9
  6410.         !俺達と、一緒に行こう！」pc
  6411.         !o(1)|(11);「そうはいかない。p;お前達を、;巻き込む訳にはいかない。」pc
  6412.         !o(1)|(0);「それなら、心配はいらない。」pc
  6413.         !o(1)|(7);「ええ、だって。」pc
  6414.         !o(1)|(8);「そうそう、もうどっぷり、;巻き込まれてるから。」pc
  6415.         !o(1)|(11);「すまない。」pc
  6416.         !o(1)|(7);「あっ、w;自己紹介がまだですね。;わたしは、|(7)です。」pc
  6417.         !o(1)|(8);「あたしは、|(8)！;よろしくね。」pc
  6418.         !o(1)|(0);「俺は、|(0)！;お互い、頑張ろうな。」pc
  6419.         !o(1)|(11);「そうだな、何としても、;ナリスプリトンの完全復活を、;阻止せねばな。」pc
  6420.         !o(1)|(0);「さぁ、行こう！;|(12)のところへ！」pc
  6421.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2
  6422.         %manpoint(1)= { 767,767 }
  6423.         &partyset 0,7,8,11
  6424.         &on
  6425.         !o(1)|(11);「ちょっと待った;|(0)！」pc
  6426.         &partymove -8
  6427.         !o(1)|(0);「どうした、|(11)！」pc
  6428.         !o(1)|(11);「お前に、;これを預けておこう！」pc
  6429.         !o(1)|(0);「鍵？」pc
  6430.         !o(1)|(11);「鍵の掛かっている宝は、;これで開くはずだ。」pc
  6431.         !o(1)|(7);「いいのですか。」pc
  6432.         !o(1)|(11);「ああ、役立ててくれ。」pc
  6433.         !o(1)|(0);「すまないな、;もらっておくよ。」pc
  6434.         !o(1)|(0)は、:不思議な色に輝く鍵を:受け取った！pc
  6435.         &partyitemin (魔導士の鍵)
  6436.         &if (%haveitem(エビルリング)==1) {
  6437.             !o(1)|(11);「ところで、|(0)！;エビルリングを;持っているのではないか？」pc
  6438.             !o(1)|(0);「これのことか。」pc
  6439.             !o(1)|(11);「そうだ、これがあると、;私の体が強くなる。」pc
  6440.             !o(1)|(0);「そうか、だったら、;あんたが持ってるといい。」pc
  6441.             !o(1)|(11);「なにからなにまですまないな。;これを、受け取ってくれ。」pc
  6442.             !o(1)|(0)は、:翼のある、変わった模様の杖を:受け取った！pc
  6443.             !o(1)|(0);「何だこれは！」pc
  6444.             !o(1)|(7);「翼のある杖！？」pc
  6445.             !o(1)|(11);「黄金の泉で使うと、;近くの黄金の泉に;行くことができる。p;
  6446.             !役に立ててくれ。」pc
  6447.             !o(1)|(8);「そんなすごいのくれるのかい、;あんた、いい奴だね。」pc
  6448.             !o(1)|(11);「さ、急ごう。」pc
  6449.             !o(1)|(0);「ああ！」pc
  6450.             &partyitemout (エビルリング)
  6451.             &partyitemin (天馬の翼)
  6452.         }
  6453.         event1=event1 or 8
  6454.         &bgm -1
  6455.         &wait 100
  6456.         &partymove 2,2,2,2,2,2,2,2,2
  6457.     } &else {
  6458.         !|(11);「お前達には、無理だ。p;この鎖には、;魔法が掛かっている。p;
  6459.         !触る者は、;命を落とすことになるぞ。p;私のことは、いい！p;
  6460.         !早くこの城から出るんだ。」pc
  6461.         !|(7);「でも、」pc
  6462.         !|(11);「いいんだ、;気にすることはない。」pc
  6463.         &partymove -2
  6464.         !|(0);「そうか、それじゃ、行こうか。」pc
  6465.         !|(8);「|(0)！;ちょっと、冷たいんじゃない。」pc
  6466.         &bgm 9
  6467.         !|(0);「なにしてるんだ、;その魔法を掛けたのは、;|(12)だろ！p;
  6468.         !だったら、;奴を倒せばいいんだ！」pc
  6469.         !|(8);「あっ、そうか、;|(0)、えらい。」pc
  6470.         !|(7);「|(11)さん、;待っててね、;自由にしてあげるから。」pc
  6471.         !|(11);「お前達、;自分の言ってることが、;分かっているのか！」pc
  6472.         &partymove -8
  6473.         !|(0);「もちろんだ、俺は、;|(12)を、そして、;ナリスプリトンを倒す！」pc
  6474.         !|(11);「そうか、;止めてもムダのようだな。p;
  6475.         !お前達なら必ず、;やってくれそうな気がする。p;死ぬんじゃないぞ！」pc
  6476.         !|(0);「ああ、|(11)もな。」pc
  6477.         &bgm -1
  6478.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,2,2,2,2,2,2,2
  6479.     }
  6480.     &bgm 16
  6481.     event++                    //event=16
  6482.  
  6483.  
  6484.  
  6485. #@5
  6486.     &if (%direc>=0) {
  6487.         &&
  6488.     }
  6489.     //&se 22
  6490.     &goto2 城Ｂ５,@0,%down
  6491.  
  6492.  
  6493. #@6
  6494.     &if (%direc!=8) {
  6495.         &&
  6496.     }
  6497.     &if ((鍵flag and 1024)==0) {
  6498.         !|(0);「この扉の向こうは、;おそらく地下牢だろう。」pc
  6499.         !|(7);「ええ、;わたしもそう思います。」pc
  6500.         !|(8);「でも鍵は大丈夫！」pc
  6501.         !|(0);「ああ、;心配の必要はなさそうだ。p;この鎖を外せば開きそうだ。」pc
  6502.         鍵flag=鍵flag or 1024
  6503.         &&
  6504.     }
  6505.     B4light=0
  6506.     &jsr OPENDOOR
  6507.     &goto2 城Ｂ４,@7,%up
  6508.  
  6509.  
  6510. #@7
  6511.     &if (%direc!=2) {
  6512.         &&
  6513.     }
  6514.     &if ((鍵flag and 1024)==0) {
  6515.         !|(0);「ダメだ！」pc
  6516.         !|(7);「鍵がかかってるのですか？」pc
  6517.         !|(0);「そうみたいだな。」pc
  6518.         !|(8);「じゃぁ、;見てても仕方ないわね。」pc
  6519.         &&
  6520.     }
  6521.     B4light=1
  6522.     &jsr OPENDOOR
  6523.     &goto2 城Ｂ４,@6,%down
  6524.  
  6525.  
  6526. #@8
  6527.     &if (%direc>=0) {
  6528.         &&
  6529.     }
  6530.     &if (event==16) {
  6531.         !|(0);「どうやらここを、;渡るしかないようだな。」pc
  6532.         !|(8);「げっ、やっぱり！」pc
  6533.         !|(0);「そんなに驚くな、;それとも、ここに残るか。」pc
  6534.         !|(8);「冗談じゃないわ、行くわよ。」pc
  6535.         !|(0);「|(7)は、どうする。」pc
  6536.         !|(7);「もちろん、行きます！」pc
  6537.         !|(0);「決まりだな。」pc
  6538.         &if (%partyexist(11)==1) {
  6539.             !|(8);「|(11)が、;うらやましいよ。」pc
  6540.             !|(11);「心配するな、;落ちそうになったら、;助けてやる。」pc
  6541.             !|(8);「絶対だよ！;ちゃんと受け止めてよ！」pc
  6542.         }
  6543.     event++                //event=17
  6544.     } &else {
  6545.         !|(8);「何度来ても、;ぞっとするわね。」pc
  6546.     }
  6547.     &partymove 4,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  6548.     &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,6,2,2
  6549.     &partymove 4,4,4,8,8,8
  6550.  
  6551. #@10
  6552.     &if (%direc>=0) {
  6553.         &&
  6554.     }
  6555.     &if ((event1 and 1)==0) {
  6556.         !|(8);「ここ、また、通るんだね。;は～！」pc
  6557.         !|(7);「元気だして、;|(8)さん！p;頑張りましょう！」pc
  6558.         !|(8);「分かったわよ！」pc
  6559.         event1=event1 or 1
  6560.     } &else {
  6561.         !|(8);「は～、ほんとは、あんまり;渡りたくないんだけどな～。」pc
  6562.         !|(0);「何か言ったか。」pc
  6563.         !|(8);「別に、何でもないわ。」pc
  6564.     }
  6565.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  6566.     &partymove 8,8,8,8,8,8,8,8,6,6,6,6,8,8,8,8,8
  6567.  
  6568.  
  6569. #@9
  6570.     &if (%direc>=0) {
  6571.         &&
  6572.     }
  6573.     &if (event!=17) {
  6574.         &&
  6575.     }
  6576.     &partymove 2,2,2,2
  6577.     %bcirclesize=90
  6578.     &on
  6579.     !|(7);「きゃっ！」
  6580.     &exec bin\wave.x 3
  6581.     !c!|(8);「ちょっと、揺らさないでよ！」pc
  6582.     !|(0);「俺は、揺らさないぞ。」pc
  6583.     !|(8);「じゃ、どうして揺れるのよ！」pc
  6584.     &if (%partyexist(11)==1) {
  6585.         !|(11);「いかん！;早く、渡りきるんだ！」pc
  6586.         !|(0);「どうしてだ！」pc
  6587.         !|(11);「理由は、後だ！;それより、急げ！」pc
  6588.     } &else {
  6589.         !|(0);「さぁな、それより、行くぞ！」pc
  6590.     }
  6591.     &partymove 2,2,2,2
  6592.     !|(0);「なんだ！」pc
  6593.     &exec bin\wave.x 4
  6594.     !|(7);「きゃっ、さっきよりひどい。」pc
  6595.     !|(8);「なんか、やばそう！」pc
  6596.     &exec bin\wave.x 5
  6597.     &if (%partyexist(11)==0) {
  6598.         !|(0);「しまった！」wwc
  6599.     } &else {
  6600.         !|(11);「遅かったか！」wwc
  6601.     }
  6602.     &partyspeed 2
  6603.     &partymove 4,4
  6604.     !|(7)、|(8);「
  6605.     &partymove 2
  6606.     !き
  6607.     &partymove 2
  6608.     !ゃ
  6609.     &partymove 2
  6610.     !ぁ
  6611.     &partymove 2
  6612.     !～
  6613.     &partymove 2
  6614.     !～
  6615.     &partymove 2
  6616.     !～
  6617.     &partymove 2
  6618.     !～
  6619.     &partymove 2
  6620.     !～
  6621.     &partymove 2
  6622.     !～
  6623.     &partymove 2
  6624.     !～
  6625.     &bgm -1
  6626.     &jsr move_fadeout
  6627.     &partymove 2,2,2,2
  6628.     !c
  6629.     //&partyspeed 1
  6630.     &complete
  6631.     &goto2 夢,@0,%down
  6632.  
  6633.  
  6634. #@20
  6635.     &if (%direc>=0) {
  6636.         &&
  6637.     }
  6638.     B4light=0
  6639.     &blackcircle 0
  6640.     &on
  6641.  
  6642. #@21
  6643.     &if (%direc>=0) {
  6644.         &&
  6645.     }
  6646.     B4light=1
  6647.     %bcirclesize=128
  6648.     &blackcircle 1
  6649.     &on
  6650.  
  6651. #@22
  6652. //    &if (%direc>=0) {
  6653. //        &&
  6654. //    }
  6655. //    %bcirclesize=110
  6656. //    &on
  6657.  
  6658. #@23
  6659. //    &if (%direc>=0) {
  6660. //        &&
  6661. //    }
  6662. //    %bcirclesize=100
  6663. //    &on
  6664.  
  6665. #@24
  6666. //    &if (%direc>=0) {
  6667. //        &&
  6668. //    }
  6669. //    %bcirclesize=95
  6670. //    &on
  6671.  
  6672. #@25
  6673. //    &if (%direc>=0) {
  6674. //        &&
  6675. //    }
  6676. //    %bcirclesize=90
  6677. //    &on
  6678.  
  6679. #@26
  6680. //    &if (%direc>=0) {
  6681. //        &&
  6682. //    }
  6683. //    %bcirclesize=85
  6684. //    &on
  6685.  
  6686. #@27
  6687. //    &if (%direc>=0) {
  6688. //        &&
  6689. //    }
  6690. //    %bcirclesize=80
  6691. //    &on
  6692.  
  6693.  
  6694. #@40
  6695.     !|(0);「行こう！」pc
  6696.     !|(7);「ええ。」pc
  6697.     !|(8);「もうひと頑張りだね。」pc
  6698.     &bgm %nowbgm
  6699. #@41
  6700.     &if (%direc>=0) {
  6701.         &jsr 黄金の泉
  6702.     }
  6703.  
  6704. #@42
  6705.     &if (%direc>=0) {
  6706.         &&
  6707.     }
  6708.     &if ((event1 and 2)!=0) {
  6709.         &&
  6710.     }
  6711.     !|(7);「|(0)、;あの壁を見てください。」pc
  6712.     !|(0);「どうした？」pc
  6713.     !|(7);「他の場所とは、;違うみたいです。」pc
  6714.     !|(8);「あたしには、;全然見えないけど？」pc
  6715.     !|(0);「どりあえず、行ってみよう。」pc
  6716.     &partyspeed 2
  6717.     &jsr Pset
  6718.     Ysub=8
  6719.     &jsr Ymove
  6720.     //&partyspeed 1
  6721.     !|(0);「壁に何か書いてあるぞ。;なになに。」pc
  6722.     &bgm -1
  6723.     Xsub=172
  6724.     &jsr Xmove
  6725.     &bgm 18
  6726.     &partymove 8,8
  6727.     !|(0);「ちょっと読みづらいが、;
  6728.     !『もし、この壁を、p;
  6729.     &partymove 6,6,-8
  6730.     !見て、生きて、』;えっと、この先はと、p;
  6731.     &partymove 6,6,-8
  6732.     !『この呪われた城を、出るp;
  6733.     &partymove 6,6,-8
  6734.     !ことが出来たなら、p;
  6735.     &partymove 6,6,-8
  6736.     !伝えてください。』p;ん～！」pc
  6737.     !|(8);「どうしんだい。」pc
  6738.     !|(0);「この先が、;ちょっと読みづらいな。」pc
  6739.     !|(7);「|(0)、;この人の想いを、;伝えてあげるためにも。」pc
  6740.     !|(0);「分かっている、;これを書いたやつに、;してあげられることは、p;
  6741.     !最後の望みを、;叶えてやるぐらいだからな。」pc
  6742.     !|(7);「ええ。」pc
  6743.     !|(8);「そうだよね、あたし達が、;叶えてあげないとね。」pc
  6744.     &partymove 6,6,-8
  6745.     !|(0);『サレス村のセネラという人に、p;
  6746.     &partymove 6,6,-8
  6747.     !私は、幸せでした。お母様、p;
  6748.     &partymove 6,6,-8
  6749.     !先立つ不幸を、;お許しください。p;
  6750.     &partymove 6,-8
  6751.     !|(7)』pc
  6752.     &partymove -4
  6753.     !|(7);「わたしと、;同じ名前w・w・w・。」pc
  6754.     !|(8);「|(7)w・w・w・。」pc
  6755.     !|(7);「・w・w・wこの人の思い、;必ず届けてあげましょうね。」pc
  6756.     !|(8);「そうだね。」pc
  6757.     &bgm -1
  6758.     !|(0);「wそうだな。」pc
  6759.     セシル+=15
  6760.     ミーナ+=15
  6761.     &bgm 16
  6762.     event1=event1 or 2
  6763.  
  6764.  
  6765. #@43
  6766.     &if (%direc>=0) {
  6767.         &&
  6768.     }
  6769.     &if ((event1 and 4)!=0) {
  6770.         &&
  6771.     }
  6772.     !|(0);「これは、ひどいな！」pc
  6773.     &partyspeed 2
  6774.     Ysub=13
  6775.     &jsr Ymove
  6776.     //&partyspeed 1
  6777.     !|(8);「ひどいわね、ほんとに。」pc
  6778.     !|(7);「ここでも、誰かが・w・w・w・。」pc
  6779.     &if (%partyexist(11)==1) {
  6780.         !|(11);「拷問を受けた跡だろうか。」pc
  6781.     }
  6782.     !|(0);「|(12)により、;いったい何人の者が犠牲に;なったのだろうか。p;
  6783.     !早く、;こんなことは終にしないとな。」pc
  6784.     !|(7);「そうですよね。」pc
  6785.     !|(8);「ほんと、;もうこんなの見たくないわ。」pc
  6786.     セシル+=10
  6787.     ミーナ+=10
  6788.     event1=event1 or 4
  6789.  
  6790.  
  6791. #@44
  6792.     &if (%direc<0) {
  6793.         &&
  6794.     }
  6795.     !ＳＪＯＭ;「もう少しです、;頑張ってください！」pc
  6796.     &freash $07ff
  6797.     &complete
  6798.  
  6799.  
  6800. #@48
  6801.     //encounter=1
  6802.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  6803.     &jsr タマ
  6804.     }
  6805.  
  6806. #@49
  6807.     //encounter=encsub
  6808.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  6809.     &jsr タマ
  6810.     }
  6811.  
  6812.     &if (%direc>=0) {&&}
  6813.     &if (noencounter>0) {
  6814.         noencounter--
  6815.     } &else {
  6816.         &if (%rnd(encounter)!=1) {&&}
  6817.         &jsr 敵遭遇
  6818.     }
  6819.  
  6820.  
  6821.                                     
  6822. [城Ｂ５]            //フレデリック城地下５階
  6823.                                     
  6824.     &ldef cecilmina
  6825.     &if (event==17) {
  6826.         &spppal chara\charact.PAL
  6827.         &mappal map\dark.PAL
  6828.     }
  6829.     &map map\B5.MAP        //城Ｂ５.MAP
  6830.     &if (%nowbgm!=20) {
  6831.         &bgm 20
  6832.     }
  6833.     %bcirclesize=128
  6834.     &blackcircle 1
  6835.     &if (event==17) {
  6836.         cecilmina=%partyexist(7)
  6837.         &if (cecilmina==1) {
  6838.             %mandef(1)= { 11,0,$60,%up,0 }
  6839.         } &else {
  6840.             %mandef(1)= { 8,0,$40,%up,0 }
  6841.         }
  6842.         %mandef(2)= { 14,0,$00,%up,0 }
  6843.         %manpoint(2)= { 767,767 }
  6844.     }
  6845.     mons1=ヘルハンド                //monster set
  6846.     hm1=2
  6847.     mons2=ヒュージリーチ
  6848.     hm2=1
  6849.     mons3=ケルベロス
  6850.     hm3=1
  6851.     mons4=ビホルダー
  6852.     enc_pat=4
  6853.     encounter=56        // 1/56
  6854.  
  6855.  
  6856.     &on
  6857.     &if (event!=17) {
  6858.         !o(1);［フレデリック城地下５階］pc
  6859.         &jmp @f
  6860.     }
  6861.     &partymove -8
  6862.     &if (cecilmina==1) {
  6863.         !|(0);「ところで、|(7)。;他の者はどうした。」pc
  6864.         !|(7);「落ちた時に、;はぐれちゃったようなんです。」pc
  6865.         !|(0);「そうか、早く探さないとな！」pc
  6866.         !|(7);「ええ。;wwでも、wあの～|(0)、;w
  6867.         !わたし、wえっと～、w;あのw・w・w・w・。」pc
  6868.         !|(0);「どうしたんだ、;早く探さないと。」pc
  6869.         !|(7);「そっ、そうですよね。早く、;合流しないと危険ですよね。」pc
  6870.     } &else {
  6871.         !|(0);「なぁ、|(8)。;他の者はどうしたんだ。」pc
  6872.         !|(8);「落ちた時に、;はぐれたみたいね。」pc
  6873.         !|(0);「早く探さないとな。このまま、;ほっとけないからな。」pc
  6874.         !|(8);「そうね。wwところでさ～、w;あんた、あたしのこと;どう思ってるの？」pc
  6875.         !|(0);「どうって、そうだな、w;|(8)は、w;ちょっとせこいとこあるよな。」pc
  6876.         !|(8);「もういいわよ！！ww;探しに行きましょ！」pc
  6877.     }
  6878.     &partymove 2,2,2,2,2,2
  6879.     !|(0);「ん？」pc
  6880.     &manmove 1, 8,8,8,8,8,8,8,8,8,8,8,8
  6881.     &if ((event1 and 8)!=0) {
  6882.         &if (cecilmina==1) {
  6883.             !|(0);「|(8)！;無事だったか。」pc
  6884.             !|(7);「よかった。」pc
  6885.             !|(8);「ほんと、;もうダメかと思ったけど、p;|(11)が、あたしを、;
  6886.             !受け止めてくれたんだ。p;|(11)が;いなかったらと思うと、;
  6887.             !ぞっとするわね、ほんと。」pc
  6888.         } &else {
  6889.             !|(0);「|(7)、;無事でよかった。」pc
  6890.             !|(8);「ほんと、無事でよかったわ。」pc
  6891.             !|(7);「心配をかけてごめんなさい。p;|(11)さんが、わたしを、;
  6892.             !間一髪のところで、;受け止めてくれたんです。p;あっ、そうだ、w;
  6893.             &manmove 1, -2
  6894.             !|(11)さん、;|(0)達は、;ここにいました。p;こっちに来てください。」pc
  6895.         }
  6896.         %manpoint(2)= { -1,-1 }
  6897.         &on
  6898.         &manmove 2, 8,8,8,8,8,8,8,8,8,8,8,8
  6899.         !|(0);「|(11)、;大丈夫だったか。」pc
  6900.         !|(11);「私のことなら、心配いらない。p;飛べるからな。;しかし、すまなかったな、;
  6901.         !一人を助けるのが、精一杯でな、p;その様子だと、無事のようだな。」pc
  6902.         !|(0);「ああ。p;さて、全員揃ったことだし、;行こうか。」pc
  6903.         !|(11);「その前に、p;恐らく、この先に、;ドラゴンがいるはずだ、p;
  6904.         !つり橋を揺らして落としたのも、;奴に間違いない。」pc
  6905.         !|(0);「ああ、分かった。;よし、行こう。」pc
  6906.     } &else {
  6907.         &if (cecilmina==1) {
  6908.             !|(7);「よかった。p;今、探しに行こうと;していたところなんです。」pc
  6909.             !|(8);「あたしもだよ！;すぐ見つかってよかったわ。」pc
  6910.             !|(0);「|(8)！大丈夫か。」pc
  6911.             !|(7);「怪我してませんか。」pc
  6912.             !|(8);「大丈夫、大丈夫！p;このぐらい、;大したことないわ！p;
  6913.             !|(7)は大丈夫！」pc
  6914.             !|(7);「ええ、わたしは、;|(0)のお蔭で、;大丈夫でした。」pc
  6915.             !|(8);「そうなんだ！w;よかったわね|(7)！ww;うまくやった？」pc
  6916.             !|(0);「おいっ、どういう意味だ。」pc
  6917.             !|(8);「えっ、何でもないわ、ほんと。w;気にしないでね。」pc
  6918.             !|(0);「まぁ、皆無事だったし、;別にいいが。」pc
  6919.             !|(8);「じゃ、いきましょ。」pc
  6920.         } &else {
  6921.             !|(8);「|(7)かい？;よかった、無事だったんだね。」pc
  6922.             !|(7);「ええ、w落ちるところが、;よかったみたいで、;怪我をしませんでした。p;
  6923.             !|(8)さんも;|(0)も、;怪我はないですか。」pc
  6924.             !|(8);「何ともないわよ。」pc
  6925.             !|(0);「そうだろうな、;俺を下敷きにしたんだからな。」pc
  6926.             !|(7);「えっ！」pc
  6927.             !|(8);「あっ、wそう、wそうだったわね。p;|(0)は、丈夫だし、;心配いらないわ
  6928.             !|(7)。」pc
  6929.             !|(0);「おいっ、w;|(8)が言うなよな。」pc
  6930.             !|(7);「でも、みんな、;無事で、よかった。」pc
  6931.             !|(0);「さ、行こうか。」pc
  6932.         }
  6933.     }
  6934.     &partymove 2,2,2,2,2
  6935.     %manpoint(1) = { 767,767 }
  6936.     %manpoint(2) = { 767,767 }
  6937.     &jsr Pset
  6938.     event0=0
  6939.     event++                //event=18
  6940. &label
  6941.  
  6942.  
  6943.  
  6944.  
  6945. #@0
  6946.     &if (%direc>=0) {
  6947.         &&
  6948.     }
  6949.     //&se 22
  6950.     B4light=1
  6951.     &goto2 城Ｂ４,@5,%down
  6952.  
  6953. #@1
  6954.     &if (%direc>=0) {
  6955.         &&
  6956.     }
  6957.     //&se 22
  6958.     &goto2 城Ｂ６,@0,%down
  6959.  
  6960. #@3
  6961.     &if (%direc>=0) {
  6962.         &&
  6963.     }
  6964.     &if ((event!=18) or ((event0 and 1)!=0)) {
  6965.         &&
  6966.     }
  6967.     event0=event0 or 1
  6968.     &exec bin\ZMmask.x 9
  6969.     &pcm 11
  6970.     &wait 200
  6971.     &exec bin\ZMmask.x
  6972.     &if ((event1 and 8)!=0) {
  6973.         !|(0);「何だ、今のは！」pc
  6974.         !|(11);「ドラゴンの唸り声だ。p;この近くにいるようだ。」pc
  6975.         !|(8);「なんか、ぞっとするね。」pc
  6976.         !|(7);「ええ、;出来れば会いたくないです。」pc
  6977.         &&
  6978.     }
  6979.     !|(0);「この先に、何かいるようだ！」pc
  6980.     !|(7);「もしかして、唸り声？」pc
  6981.     !|(8);「冗談でしょ。」pc
  6982.     !|(0);「しかし、ここまで来て、;やめる訳にもいかないしな。p;行くぞ！」pc
  6983.     !|(8);「仕方ないわね、行きますか。」pc
  6984.  
  6985.  
  6986. #@4
  6987.     &if (event!=18) {
  6988.         &&
  6989.     }
  6990.     &bgm 0
  6991.     &battle $1000,23,ドラゴン,1
  6992.     &jsr gold_Gover
  6993.     &bgm 20
  6994.     &if ((event1 and 8)==0) {
  6995.         !|(0);「ドラゴンか、この先は、;さらに苦労しそうだな。」pc
  6996.         !|(8);「ここまで来たら、;後戻りできないわね。」pc
  6997.         !|(7);「ええ、覚悟は、;できています。」pc
  6998.         !|(0);「さぁ、下りよう！」pc
  6999.     } &else {
  7000.         !|(0);「ドラゴンか。」pc
  7001.         !|(11);「そういうことだ。p;この先は、;この程度ではすまない。p;
  7002.         !覚悟は、いいか。」pc
  7003.         !|(0);「ああ、もちろんだ。p;|(7)、w|(8)！;君達は、」pc
  7004.         !|(8);「あたし達は、帰らないよ。;ね、|(7)。」pc
  7005.         !|(7);「ええ、覚悟は、;できてます。」pc
  7006.         !|(0);「分かった。p;さぁ、下りようか。」pc
  7007.     }
  7008.     event++                    //event=19
  7009.  
  7010.  
  7011.  
  7012. #@49
  7013.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  7014.     &jsr タマ
  7015.     }
  7016.  
  7017.     &if (%direc>=0) {&&}
  7018.     &if (noencounter>0) {
  7019.         noencounter--
  7020.     } &else {
  7021.         &if (%rnd(encounter)!=1) {&&}
  7022.         &jsr 敵遭遇
  7023.     }
  7024.  
  7025.  
  7026.                                     
  7027. [城Ｂ６]            //フレデリック城地下６階
  7028.                                     
  7029.     //&mappal map\dark.PAL
  7030.     &map map\B6.MAP        //城Ｂ６.MAP
  7031.     &if (%nowbgm!=20) {
  7032.         &bgm 20
  7033.     }
  7034.     mons1=ヘルハンド                //monster set
  7035.     hm1=3
  7036.     mons2=ヒュージリーチ
  7037.     hm2=2
  7038.     mons3=ケルベロス
  7039.     hm3=1
  7040.     mons4=ビホルダー
  7041.     enc_pat=4
  7042.     encounter=24        // 1/24
  7043.  
  7044.  
  7045.     Tsub=T城Ｂ６                //宝セット
  7046.     Tbit=1
  7047.     &jsr 宝開閉？
  7048.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  7049.     Tbit=2
  7050.     &jsr 宝開閉？
  7051.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  7052.  
  7053.     &on
  7054.     &if (door_sound==0) {
  7055.         !o(1);［フレデリック城地下６階］pc
  7056.     }
  7057.     door_sound=0
  7058.  
  7059.  
  7060.     &if (event==19) {
  7061.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2
  7062.         !|(8);「これは、すごいね！」pc
  7063.         !|(7);「本当ですね。p;わたし、;こんなに大きな黄金の泉を見るの;初めてです。」pc
  7064.         !|(0);「俺もだ！p;この近くに、黄金の水の源でも;あるのだろうか。」pc
  7065.         !|(8);「そのせいで急に明るくなったんだね」pc
  7066.         &if ((event1 and 8)==0) {
  7067.             !|(8);「それより。」pc
  7068.             !|(0);「そうだな、;見とれている場合じゃないな。p;先を急ごう！」pc
  7069.         } &else {
  7070.             &partymove -8
  7071.             !|(11);「そういうことだ。p;この水がどうして出来るか;知っているか。」pc
  7072.             !|(0);「俺は、知らないが、;|(7)、|(8)なら;知ってるんだろ。」pc
  7073.             !|(8);「あたしは、知らないわ。p;でも、|(7)なら、;知ってるわよね！」pc
  7074.             !|(7);「ごめんなさい、;私も知りません！p;私だけでなく、この水が、;
  7075.             !どうしてこの国から湧くのか、;また、どうして出来るのか、;
  7076.             !知ってる人は、;いませんでした！」pc
  7077.             !|(11);「いいだろう、教えてやろう。p;この黄金色の水は、もともと、;
  7078.             !この世界には無いものだ。」pc
  7079.             !|(8);「じゃぁ、どうして、;ここにあるのよ！p;おかしいじゃない！」pc
  7080.             !|(11);「まぁ、;そう思うのも無理はない。p;
  7081.             !この水は、;魔界から染み出してきた、;魔力の篭った水と、p;
  7082.             !この国特有のシンシア水晶、;そして、この世界の水、;つまり、地下水が、;
  7083.             !作用しあって出来るものだ。」pc
  7084.             !|(0);「そうか、それで、;シンシア水晶の器が;必要なわけだ。」pc
  7085.             !|(11);「そういうことだ。」pc
  7086.             !|(7);「もしかして、;ここにこれだけの黄金の水が;あるということは、p;
  7087.             !魔界への穴かなにかが、;この近くに;あるということですか。」pc
  7088.             !|(11);「さすがに、察しがいいな。p;その通り、恐らく、;|(12)も、;
  7089.             !ナリスプリトンも、;この国で、魔力が最大になる所、p;つまり、
  7090.             !その魔界への穴に;いるに違いない。」pc
  7091.             !|(0);「この近くにあるという訳だな！p;よし、急ごう！」pc
  7092.             !|(11);「気を付けろ、;そう簡単に通してはくれまい。」pc
  7093.             !|(0);「それは、十分、;分かっているつもりだ。」pc
  7094.             !|(8);「そうよね、もう少しで、;|(12)の近くに、;着くんでしょ。」pc
  7095.             !|(0);「そうだな、突き進むまでだ！」pc
  7096.             !|(7);「ええ。」pc
  7097.             &partymove -2
  7098.         }
  7099.         event++                //event=20
  7100.     }
  7101.  
  7102.  
  7103.  
  7104. #10                    //大宝
  7105.     Tbit=1
  7106.     &jsr 宝開閉？
  7107.     &if (Tno!=0) {
  7108.         !|(7);「からですね。」pc
  7109.         !|(8);「ほんとだね。」pc
  7110.         !|(0);「行くぞ！」pc
  7111.         &&
  7112.     }
  7113.     &jsr pcm_treasure
  7114.     %mandef(10) = { 15,0,$89,2,-1 }
  7115.     &on
  7116.     !|(0);「服か？」pc
  7117.     Tno=(水の羽衣)
  7118.     &jsr 宝ゲット
  7119.     T城Ｂ６=Tsub
  7120.     &jsr 宝開閉？
  7121.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  7122.     &on
  7123.     &if (Tno==0) {
  7124.         &&
  7125.     }
  7126.     !|(7);「きれいですね！」pc
  7127.     !|(8);「ほんと、凄いじゃないこれ。」pc
  7128.     !|(0);「ん～、そうなのか。p;俺には、そういうのは、;よく分からないからな。」pc
  7129.     !|(8);「|(0)らしい答よね～、;ねぇ～|(7)。」pc
  7130.     !|(7);「えっ、ええ。」pc
  7131.     !|(0);「それより、;これは|(7)が;着るといい！p;丈夫そうだしな。」pc
  7132.     !|(7);「ありがとう。;そうさせてもらいます。」pc
  7133.     !|(0);「その方がいい。」pc
  7134.     !|(8);「いいな、あたしも欲しいな。p;でも、そのサイズじゃ、;着られそうもないし、;
  7135.     !いいわ。」pc
  7136.  
  7137.  
  7138. #11                    //大宝
  7139.     Tbit=2
  7140.     &jsr 宝開閉？
  7141.     &if (Tno!=0) {
  7142.         !|(8);「カラっぽだね。」pc
  7143.         &&
  7144.     }
  7145.     &jsr pcm_treasure
  7146.     %mandef(11) = { 15,0,$89,2,-1 }
  7147.     &on
  7148.     !|(0);「服かこれ？」pc
  7149.     Tno=(クリスタルドレス)
  7150.     &jsr 宝ゲット
  7151.     T城Ｂ６=Tsub
  7152.     &jsr 宝開閉？
  7153.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  7154.     &on
  7155.     &if (Tno==0) {
  7156.         &&
  7157.     }
  7158.     !|(8);「これって、シンシア水晶を、;細糸にして、編み上げてあるわ。p;
  7159.     !すっwすごい、w;こんなこと出来る人は、;この国に数えるぐらいしか;いないわ。p;
  7160.     !これあたしもらうね、;いいでしょ、|(0)！」pc
  7161.     !|(0);「ああ、分かったよ。;そうしたらいい。」pc
  7162.     !|(7);「|(8)さん、;似合うわよきっと。」pc
  7163.  
  7164.  
  7165. #@0
  7166.     &if (%direc>=0) {
  7167.         &&
  7168.     }
  7169.     //&se 22
  7170.     &goto2 城Ｂ５,@1,%down
  7171.  
  7172. #@1
  7173.     &if (%direc>=0) {
  7174.         &&
  7175.     }
  7176.     //&se 22
  7177.     &goto2 地下空洞,@0,%up
  7178.  
  7179.  
  7180. #@2
  7181.     &if (%direc>=0) {
  7182.         &&
  7183.     }
  7184.     &if (event!=20) {
  7185.         &&
  7186.     }
  7187.     &exec bin\ZMmask.x 9
  7188.     &pcm 11
  7189.     &wait 40
  7190.     &pcm 11
  7191.     &wait 20
  7192.     &pcm 11
  7193.     &wait 50
  7194.     &pcm 11
  7195.     &wait 80
  7196.     &pcm 11
  7197.     &wait 30
  7198.     &pcm 11
  7199.     &wait 60
  7200.     &pcm 11
  7201.     &wait 120
  7202.     &exec bin\ZMmask.x
  7203.     !|(0);「おいっ、いきなりか！」pc
  7204.     &if ((event1 and 8)!=0) {
  7205.         !|(11);「フレアドラゴンだな、;気を付けろ|(0)！」pc
  7206.     }
  7207.     &bgm 0
  7208.     &battle $1000,23,ドラゴン,1,フレアドラゴン,1,ドラゴン,1
  7209.     &if (%exitcode==1) {
  7210.         !サイアン「残念だよ、君達には、;ここまで来て欲しかったのにな。pc
  7211.         !フハハハハハっ！」pc
  7212.     }
  7213.     &jsr gold_Gover
  7214.     &bgm 20
  7215.     !|(0);「ふぅ～！;やったか！」pc
  7216.     &if ((event1 and 8)!=0) {
  7217.         !|(11);「こいつで苦労する様じゃ、;|(12)は、;倒せないぞ！p;ましてや、
  7218.         !ナリスプリトンは、;|(12)の比じゃないからな！」pc
  7219.         !|(0);「言わなくても、;十分に分かっている。」pc
  7220.         !|(11);「それならいい。」pc
  7221.     }
  7222.     !|(8);「でも、あたし達、;ほんとに勝てるのかな？p;心配になってきたわ。」pc
  7223.     !|(7);「|(8)さん、w・w・w・w・。」pc
  7224.     !|(0);「俺は、w俺は、w;どんなことがあっても、;奴らを倒す！p;
  7225.     !この身が、どうなろうと！」pc
  7226.     !|(7);「お願い、w;そんなこと言わないで。p;必ず、みんな無事に、w;・w・w・w・w
  7227.     !無事に帰りましょう！」pc
  7228.     !|(0);「すまなかった。p;そうだよな、みんな、;必ず生きて帰ろうな！」pc
  7229.     !|(7);「ええ。」pc
  7230.     !|(8);「当たり前だよ、あたしは、;まだまだやりたいことたくさん;あるしね！」pc
  7231.     &if ((event1 and 8)!=0) {
  7232.         !|(11);「そうだな。p;私にも、やらねばならぬことが;あるからな。」pc
  7233.     }
  7234.     event0=0
  7235.     event++                    //event=21
  7236.  
  7237.  
  7238. #@40
  7239.     !|(0);「ここなら、;黄金の水に困らないな。」pc
  7240.     !|(7);「ええ。」pc
  7241.     !|(8);「ほんと、;じゃんじゃん飲んじゃお。」pc
  7242.     &if ((event1 and 8)!=0) {
  7243.         !|(11);「余り飲みすぎるなよ！」pc
  7244.     }
  7245.     &bgm %nowbgm
  7246. #@41
  7247.     &if (%direc>=0) {
  7248.         &jsr 黄金の泉
  7249.     }
  7250.  
  7251.  
  7252. #@49
  7253.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  7254.     &jsr タマ
  7255.     }
  7256.  
  7257.     &if (%direc>=0) {&&}
  7258.     &if (noencounter>0) {
  7259.         noencounter--
  7260.     } &else {
  7261.         &if (%rnd(encounter)!=1) {&&}
  7262.         &jsr 敵遭遇
  7263.     }
  7264.  
  7265.  
  7266.                                     
  7267. [地下空洞]            //地下大空洞
  7268.                                     
  7269.     //&mappal map\dark.PAL
  7270.     &map map\undrgrnd.MAP        //地下空洞.MAP
  7271.     &if (%nowbgm!=21) {
  7272.         &bgm 21
  7273.     }
  7274.     mons1=ドラゴン                //monster set
  7275.     hm1=1
  7276.     mons2=インキュバス
  7277.     hm2=1
  7278.     mons3=ランドアーチン
  7279.     hm3=1
  7280.     &if ((event1 and 16)==0) {
  7281.         mons4=アンシーンワン        //見えないモンスター
  7282.     } &else {
  7283.         mons4=グレイデーモン        //見える様になったモンスター
  7284.     }
  7285.     enc_pat=1
  7286.     encounter=64        // 1/64
  7287.  
  7288.  
  7289.     &if ((event1 and 16)==0) {        //通行止め用
  7290.         %mandef(1) = { 7,0,0,2,-1 }
  7291.         %mandef(2) = { 7,0,0,2,-1 }
  7292.         %mandef(3) = { 7,0,0,2,-1 }
  7293.     } &else {
  7294.         &exec bin\bg2swch.x 0
  7295.     }
  7296.  
  7297.     Tsub=T地下空洞                //宝セット
  7298.     Tbit=1
  7299.     &jsr 宝開閉？
  7300.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  7301.     Tbit=4
  7302.     &jsr 宝開閉？
  7303.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  7304.     Tbit=8
  7305.     &jsr 宝開閉？
  7306.     %mandef(12) = { 15,0,$88+Tno,2,-1 }
  7307.     Tbit=16
  7308.     &jsr 宝開閉？
  7309.     %mandef(13) = { 15,0,$88+Tno,2,-1 }
  7310.     Tbit=32
  7311.     &jsr 宝開閉？
  7312.     %mandef(14) = { 15,0,$86+Tno,2,-1 }
  7313.     %mandef(15) = { 15,0,$84,2,-1 }
  7314.     Tbit=128
  7315.     &jsr 宝開閉？
  7316.     %mandef(16) = { 15,0,$84+Tno,2,-1 }
  7317.     &on
  7318.     &if (door_sound==0) {
  7319.         !o(1);　　　　　　［地下大空洞］pc
  7320.     }
  7321.     door_sound=0
  7322.  
  7323.  
  7324.     &if ((event==21) and (event0==0)) {
  7325.         &partymove 8,8,8,8,8,8,8,8
  7326.         !|(0);「何だここは、霧深いな！p;これじゃ、;先に進むのに苦労しそうだな！」pc
  7327.         !|(8);「そうね、;どうにかならないかな。」pc
  7328.         !|(7);「でも、これだけの霧が;ここにあるということは。」pc
  7329.         &if ((event1 and 8)==0) {
  7330.             !|(0);「ああ、たぶんこの近くに;何かあるということだろうな。」pc
  7331.             !|(7);「ええ、この先、;気を付けましょう。p;わたし、;いやな予感がします！」pc
  7332.             !|(8);「あたしもだよ。p;ねぇ、|(0)。」pc
  7333.             !|(0);「そうだな。」pc
  7334.         } &else {
  7335.             !|(11);「恐らく、魔界への穴が、;近いということだろう！」pc
  7336.             !|(7);「ええ、わたしも、;そう思います。」pc
  7337.             !|(8);「ねぇ、それって、;|(12)達が;いるってことよね。」pc
  7338.             !|(0);「そういうことだ。p;いよいよだな。ww;さぁ、行くぞ！」pc
  7339.         }
  7340.         event0++
  7341.     }
  7342.  
  7343.  
  7344. #1
  7345.         //dummy
  7346. #2
  7347.         //dummy
  7348. #3
  7349.         //dummy
  7350.  
  7351. #10                //大宝
  7352.     Tbit=1
  7353.     &jsr 宝開閉？
  7354.     &if (Tno!=0) {
  7355.         Tbit=2
  7356.         &if ((Tsub and Tbit)!=0) {
  7357.             !|(7);「もう無い見たいですね。」pc
  7358.             !|(8);「ほんと。p;二つあれば十分よね。」pc
  7359.             !|(7);「ええ。」pc
  7360.             &&
  7361.         }
  7362.         Tno=(ダイアの腕輪)
  7363.         &jsr 宝ゲット
  7364.         T地下空洞=Tsub
  7365.         &if ((Tsub and Tbit)!=0) {
  7366.             !|(0);「もう一つ入っていたか。;これで、もめずにすむな。」pc
  7367.         }
  7368.         &&
  7369.     }
  7370.     &jsr pcm_treasure
  7371.     %mandef(10) = { 15,0,$89,2,-1 }
  7372.     &on
  7373.     Tno=(ダイアの腕輪)
  7374.     &jsr 宝ゲット
  7375.     T地下空洞=Tsub
  7376.     &jsr 宝開閉？
  7377.     %mandef(10) = { 15,0,$88+Tno,2,-1 }
  7378.     &on
  7379.     &if (Tno==0) {
  7380.         &&
  7381.     }
  7382.     !|(7);「わぁ～きれいですね！」pc
  7383.     !|(8);「凄いじゃないこれ。;ダイアで出来てるわね！」pc
  7384.     !|(0);「俺は、使えないから、;二人で使ったらいい。」pc
  7385.     !|(8);「二人でって、言われてもね、;一つしかないし。」pc
  7386.     !|(7);「|(8)さん;使ってください。」pc
  7387.     !|(8);「あたしより、;|(7)が使いなよ。」pc
  7388.     !|(0);「仕方ないな。;俺が決めるか！p;ん？ww;この宝箱？」pc
  7389.  
  7390.  
  7391.  
  7392. #11                //大宝
  7393.     Tbit=4
  7394.     &jsr 宝開閉？
  7395.     &if (Tno!=0) {
  7396.         !|(8);「カラね、;でも、これで十分、十分。」pc
  7397.         &&
  7398.     }
  7399.     &jsr pcm_treasure
  7400.     %mandef(11) = { 15,0,$89,2,-1 }
  7401.     &on
  7402.     !|(0);「ガラスの剣？」pc
  7403.     Tno=(クリスタルソード)
  7404.     &jsr 宝ゲット
  7405.     T地下空洞=Tsub
  7406.     &jsr 宝開閉？
  7407.     %mandef(11) = { 15,0,$88+Tno,2,-1 }
  7408.     &on
  7409.     &if (Tno==0) {
  7410.         &&
  7411.     }
  7412.     !|(7);「これって、シンシア水晶で;出来ているみたいですね！」pc
  7413.     !|(8);「すっすごい！p;あたしが使う、絶対あたしね！」pc
  7414.     !|(0);「そうだな、;それがよさそうだな。」pc
  7415.  
  7416.  
  7417. #12                //大宝
  7418.     Tbit=8
  7419.     &jsr 宝開閉？
  7420.     &if (Tno!=0) {
  7421.         !|(0);「ないな！」pc
  7422.         &&
  7423.     }
  7424.     &jsr pcm_treasure
  7425.     %mandef(12) = { 15,0,$89,2,-1 }
  7426.     &on
  7427.     !|(0);「んっ？」pc
  7428.     Tno=(ダイアの指輪)
  7429.     &jsr 宝ゲット
  7430.     T地下空洞=Tsub
  7431.     &jsr 宝開閉？
  7432.     %mandef(12) = { 15,0,$88+Tno,2,-1 }
  7433.     &on
  7434.     &if (Tno==0) {
  7435.         &&
  7436.     }
  7437.     !|(8);「ねぇ、ねぇ、|(0)！p;何が入ってたんだい。」pc
  7438.     !|(7);「どうしたんですか、;|(0)。」pc
  7439.     !o(0)|(0);「ん～！」
  7440.     %selectlist = { 王女様にあげる,道具屋の娘にあげる,自分がもらう }
  7441.     &switch %select {
  7442.     &case 0:
  7443.         !c|(0);「|(7)、;君にあげよう！」pc
  7444.         !|(7);「えっ、wわたしに！？」pc
  7445.         !|(0);「そうだ。」pc
  7446.         !|(8);「もらっといたら、|(7)。」pc
  7447.         !|(7);「ええ、ありがとう、;|(0)。」pc
  7448.         !|(8);「ダイアの指輪ね。;にくいわね、|(0)！」pc
  7449.         !|(0);「ん？p;言っておくけど、;別に深い意味はないからな。p;
  7450.         !この宝箱に入っていただけだ。」pc
  7451.         !|(7);「でも、とても嬉しいです。」pc
  7452.         !|(0);「ん、wまぁ、wそんなに;喜んでくれたからいいか。」pc
  7453.         !|(8);「へ～、w何がいいのかな。」pc
  7454.         !|(0);「|(8)！;いい加減にしろよ、;別に何もないと言ってるだろ。」pc
  7455.         !|(8);「はいはい、分かりました。」pc
  7456.         &if ((event1 and 8)!=0) {
  7457.             !|(11);「こんな物が、嬉しいのか。p;私には、;分からないが・・・。」pc
  7458.             !|(8);「は～、wwあたしも疲れるわ。」pc
  7459.         }
  7460.         セシル+=150
  7461.         &partyitemout (ダイアの指輪)
  7462.         &break
  7463.     &case 1:
  7464.         !c|(0);「どうだ、|(8)。;君にあげようか。」pc
  7465.         !|(8);「えっ、なになに？」pc
  7466.         !|(7);「ダイアの指輪ですか。」pc
  7467.         !|(8);「ええっ！ww;もらうもらう、絶対もらう。;ありがとうね|(0)！」pc
  7468.         !|(0);「はははははっ、;それだけ喜んでくれると、;俺も嬉しいよ。」pc
  7469.         &if ((event1 and 8)!=0) {
  7470.             !|(11);「|(8)、それには、;特殊な魔力でも、;込められているのか？」pc
  7471.             !|(8);「ん～、ある意味では、;そうかもね。p;ねぇ～|(7)！」pc
  7472.         }
  7473.         !|(7);「ええ。」pc
  7474.         ミーナ+=150
  7475.         &partyitemout (ダイアの指輪)
  7476.         &break
  7477.     &default:
  7478.         !c|(0);「カラっぽのようだ。;何もない。」pc
  7479.         !|(8);「ほんとだろうね！」pc
  7480.         !|(0);「ああ。」pc
  7481.         !|(8);「じゃぁ、いいわ。;|(7)行きましょ。」pc
  7482.         !|(7);「ええ。」pc
  7483.         セシル-=120
  7484.         ミーナ-=120
  7485.     }
  7486.  
  7487.  
  7488. #13                //大宝
  7489.     Tbit=16
  7490.     &jsr 宝開閉？
  7491.     &if (Tno!=0) {
  7492.         !|(0);「うっ！p;って、何も起こらないな！」pc
  7493.         !|(8);「もう、びっくりするじゃない。」pc
  7494.         &&
  7495.     }
  7496.     &jsr pcm_treasure
  7497.     %mandef(13) = { 15,0,$89,2,-1 }
  7498.     &on
  7499.     &bgm -1
  7500.     &exec bin\white.x
  7501.     !|(0);「うっ！」pc
  7502.     !|(8);「まっwまぶしい！」pc
  7503.     !|(7);「目を開けていられない！」pc
  7504.     &if ((event1 and 8)!=0) {
  7505.         !|(11);「ここにあったか！」pc
  7506.     }
  7507.     &exec bin\toPAL.x map\darkall.PAL
  7508.     &bgm 21
  7509.     !|(0);「なっwなんなんだ？」pc
  7510.     Tno=(真理の鏡)
  7511.     &jsr 宝ゲット
  7512.     T地下空洞=Tsub
  7513.     &jsr 宝開閉？
  7514.     %mandef(13) = { 15,0,$88+Tno,2,-1 }
  7515.     &on
  7516.     &if (Tno==0) {
  7517.         &&
  7518.     }
  7519.     event1=event1 or 16
  7520.     &if ((event1 and 8)==0) {
  7521.         !|(7);「鏡みたいですね！」pc
  7522.         !|(8);「ほんと、凄かったわ。」pc
  7523.         !|(0);「とりあえず、持っておくか。」pc
  7524.         !|(7);「そうですね。」pc
  7525.         !|(0);「うわっ、まただ！」pc
  7526.     } &else {
  7527.         !|(11);「そんなに驚くことはない。p;これは真理の鏡と言ってな、;
  7528.         !見えない物を、;見えるようにする物だ。p;これを、持っていれば、;
  7529.         !ここにいる、見えない敵や、;霧の中を、ハッキリ見ることが;出来るようになる。」pc
  7530.         !|(8);「じゃぁ～、早く使おう！」pc
  7531.         !|(0);「そうだな！」pc
  7532.     }
  7533.     &exec bin\white.x
  7534.     %manpoint(1) = { 767,767 }
  7535.     %manpoint(2) = { 767,767 }
  7536.     %manpoint(3) = { 767,767 }
  7537.     &on
  7538.     &exec bin\bg2swch.x 0
  7539.     !c
  7540.     mons4=グレイデーモン
  7541.     &exec bin\toPAL.x map\darkall.PAL
  7542.     &if ((event1 and 8)==0) {
  7543.         !|(7);「|(0)見てください、;霧がなくなってます！」pc
  7544.         !|(8);「ほんとね、これなら、;歩きやすいわね。」pc
  7545.         !|(0);「よしっ、;見晴らしが良くなったし、;早く|(12)を探そう！」pc
  7546.     } &else {
  7547.         !|(0);「なるほどな。」pc
  7548.         !|(7);「本当に、よく見えるように;なりましたね。」pc
  7549.         !|(8);「これだけよく見えたら、;向かうところ敵無しね。」pc
  7550.         !|(11);「油断は、禁物だぞ。」pc
  7551.         !|(8);「もう、分かってるわよ。」pc
  7552.     }
  7553.  
  7554.  
  7555.  
  7556.  
  7557. #14                //中宝
  7558.     Tbit=32
  7559.     &jsr 宝開閉？
  7560.     &if (Tno!=0) {
  7561.         !|(0);「もうないな！」pc
  7562.         &&
  7563.     }
  7564.     &jsr pcm_treasure
  7565.     %mandef(14) = { 15,0,$87,2,-1 }
  7566.     &on
  7567.     !|(0);「薬か？」pc
  7568.     Tno=(リアリゼーション)
  7569.     &jsr 宝ゲット
  7570.     T地下空洞=Tsub
  7571.     &jsr 宝開閉？
  7572.     %mandef(14) = { 15,0,$86+Tno,2,-1 }
  7573.     &on
  7574.     &if (Tno==0) {
  7575.         &&
  7576.     }
  7577.     !|(7);「助かりますね。」pc
  7578.     !|(8);「でも、;もっとすごいのが欲しいよね。」pc
  7579.  
  7580.  
  7581.  
  7582. #15                //小宝
  7583.     Tbit=64        //dummy
  7584.     &jsr pcm_treasure
  7585.     %mandef(15) = { 15,0,$85,2,-1 }
  7586.     &on
  7587.     Tno=(エクスポーション)
  7588.     &jsr 宝ゲット
  7589.     &if ((Tsub and Tbit)==0) {
  7590.         Tsub=T地下空洞
  7591.         &&
  7592.     } &else {
  7593.         Tsub=T地下空洞
  7594.     }
  7595.     %mandef(15) = { 15,0,$84,2,-1 }
  7596.     &on
  7597.     &if (extrT0==0) {        //&switch代行
  7598.         !|(0);「薬が、入ってるだけか！」pc
  7599.         !|(7);「でも、たすかりますね。」pc
  7600.         !|(0);「まぁ、無いよりいいが。」pc
  7601.         extrT0++
  7602.         &&
  7603.     }
  7604.     &if (extrT0==1) {
  7605.         !|(0);「ん？;また、入っているぞ。」pc
  7606.         !|(8);「ほんと、得したわね。」pc
  7607.         extrT0++
  7608.         &&
  7609.     }
  7610.     &if (extrT0==2) {
  7611.         !|(8);「これって、;いくらでも湧くんじゃない！」pc
  7612.         !|(0);「そんなことないだろ！」pc
  7613.         extrT0++
  7614.         &&
  7615.     }
  7616.     &if (extrT0==3) {
  7617.         !|(7);「ほんとですね、なんどでも、;出て来るみたいですね。」pc
  7618.         !|(8);「ねぇ、|(0)、;持てるだけ、もっていこうよ。ww;ね！」pc
  7619.         !|(0);「ああ、そうだな。」pc
  7620.         extrT0++
  7621.         &&
  7622.     }
  7623.     //dummy
  7624.     &&
  7625.  
  7626.  
  7627.  
  7628. #16                //小宝
  7629.     Tbit=128
  7630.     &jsr 宝開閉？
  7631.     &if (Tno!=0) {
  7632.         !|(7);「もう;入ってないみたいですね。」pc
  7633.         !|(8);「そうみたいね。」pc
  7634.         &&
  7635.     }
  7636.     &jsr pcm_treasure
  7637.     %mandef(16) = { 15,0,$85,2,-1 }
  7638.     &on
  7639.     !|(0);「薬が入っているようだ！」pc
  7640.     Tno=(ポーション+%rnd(4))
  7641.     &jsr 宝ゲット
  7642.     T地下空洞=Tsub
  7643.     &jsr 宝開閉？
  7644.     %mandef(16) = { 15,0,$84+Tno,2,-1 }
  7645.     &on
  7646.     &if (Tno==0) {
  7647.         &&
  7648.     }
  7649.     !|(8);「ふ～ん、これでも、;役に立ちそうね！」pc
  7650.  
  7651.  
  7652. #@0
  7653.     &if (%direc>=0) {
  7654.         &&
  7655.     }
  7656.     //&se 22
  7657.     &contrast 0
  7658.     &wait 200
  7659.     &exec bin\bg2swch.x 1
  7660.     &goto2 城Ｂ６,@1,%down
  7661.  
  7662. #@1
  7663.     &if (%direc>=0) {
  7664.         &&
  7665.     }
  7666.     //&se 22
  7667.     &contrast 0
  7668.     &wait 200
  7669.     &exec bin\bg2swch.x 1
  7670.     &goto2 魔界入口,@0,%up
  7671.  
  7672.  
  7673. #@40
  7674.     !|(0);「とうとう、ここまで来たな！」pc
  7675.     &if ((event1 and 8)!=0) {
  7676.         !|(11);「そうだな。;やっと、ここまで来たわけだ！」pc
  7677.     }
  7678.     !|(7);「ええ。」pc
  7679.     !|(8);「最後のひと頑張りね。」pc
  7680.     &bgm %nowbgm
  7681.  
  7682. #@41
  7683.     &if (%direc>=0) {
  7684.         &jsr 黄金の泉
  7685.     }
  7686.  
  7687.  
  7688. #@42
  7689.     &complete
  7690.     &freash $07ff
  7691.     &if ((event1 and 512)==0) {
  7692.         !|(0);「何だ、今のは？」pc
  7693.         !|(7);「体の具合が;良くなったみたいです。」pc
  7694.         !|(8);「ほんとだ。;もしかして黄金の水？」pc
  7695.         &if ((event1 and 8)!=0) {
  7696.             !|(11);「どうやら、;ここに漂っている魔力の篭った;
  7697.             !水のお蔭のようだな。」pc
  7698.             !|(0);「なるほどな。」pc
  7699.         } &else {
  7700.             !|(0);「ん～、w良くは分からないが、;この霧の噴出口のようだな。」pc
  7701.         }
  7702.         !|(7);「他にもこういう場所が;あるかも知れませんね。」pc
  7703.         !|(8);「だったら、そういう場所を;拠点にすればいいわね。」pc
  7704.         !|(0);「そうだな。」pc
  7705.         event1=event1 or 512
  7706.     }
  7707.  
  7708.  
  7709. #@49
  7710.     &if (%haveitem(タマの鈴)==1) {        //イベントボタン連射でも金儲け可！
  7711.     &jsr タマ
  7712.     }
  7713.  
  7714.     &if (%direc>=0) {&&}
  7715.     &if (noencounter>0) {
  7716.         noencounter--
  7717.     } &else {
  7718.         &if (%rnd(encounter)!=1) {&&}
  7719.         &jsr 敵遭遇
  7720.     }
  7721.  
  7722.  
  7723.  
  7724.                                     
  7725. [魔界入口]            //魔界入口
  7726.                                     
  7727.     //&mappal map\dark.PAL
  7728.     &map map\devildom.MAP        //魔界入口.MAP
  7729.     &if (ending!=0) {
  7730.         &on
  7731.         &partyspeed 2
  7732.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  7733.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  7734.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  7735.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  7736.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  7737.         &partymove 2,2,2,2,2,2,2,2,4,4
  7738.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  7739.         &partyspeed 1
  7740.         &wait 300
  7741.         &exec bin\sepia.x
  7742.         !　:　:　:　:
  7743.         !　　　　wＡＮＤw　　　　　　　　:
  7744.         !　　　　　　wＹＯＵw　　　　　　:
  7745.         &wait 600
  7746.         &bgm -1
  7747.         &jsr FADEOUT
  7748.         !c
  7749.         &wait 300
  7750.         &spppal map\darkall.PAL
  7751.         &goto2 ENDING,14,18,%down
  7752.     }
  7753.     &if (%nowbgm!=17) {
  7754.         &bgm 17
  7755.     }
  7756.     %mandef(1)= { $f,0,$60,%right,0 }
  7757.     %manpoint(1)= { 767,767 }
  7758.     &on
  7759.     !o(1);　　　　　　［魔界入口］pc
  7760.  
  7761.  
  7762.     &switch (event) {
  7763.     &default:                //バスエラー回避用
  7764.         &break
  7765.     &case(21):
  7766.         !|(7);「うわぁ～！;すごいですね。」pc
  7767.         !|(8);「ほんと、まるで別世界だね！」pc
  7768.         !|(0);「いよいよだな。」pc
  7769.         &if ((event1 and 8)!=0) {
  7770.             !|(11);「ここに、|(12)と、;ナリスプリトンがいるはずだ！」pc
  7771.             !|(0);「ああ、分かっている！p;早く、終わらせよう。」pc
  7772.         }
  7773.         !|(7);「ええ。」pc
  7774.         !|(8);「そうだね、;もうこれで終にしないとね。」pc
  7775.         &break
  7776.     &case(22):
  7777.         &partymove 2,2,2,2,4,4,4,4,4,4,8,4,8,4,-8
  7778.         &exec bin\toPAL.x map\darkall.PAL
  7779.         !|(7);「|(0)大丈夫ですか。;しっかりしてください。」pc
  7780.         !|(8);「|(7)、なにかいい回復方法はないのかい。」pc
  7781.         &if ((event1 and 8)!=0) {
  7782.             !|(11);「これは、;|(0)の意志の問題だ。p;もし、;強い意志を持っていないのなら、
  7783.             !二度と、;正気は取り戻さないだろう！」pc
  7784.         }
  7785.         &partymove -6,-4,-6,-4,-6
  7786.         !|(0);「うっ、ここは。www;そうか、俺は、戻ったんだな。」pc
  7787.         !|(7);「よかった。ww;ほんとに、よかった。」pc
  7788.         !|(8);「|(0)、ほんとうに、;|(0)だよね！」pc
  7789.         !|(0);「もちろんだ、;心配をかけたな。p;もう大丈夫だ。」pc
  7790.         &if ((event1 and 8)!=0) {
  7791.             !|(11);「よく戻れたな、;それだけ強い意志があれば、;
  7792.             !ナリスプリトンを;倒せるかもしれない。」pc
  7793.             !|(0);「|(11)、;俺は、必ず倒す！」pc
  7794.             !|(11);「そうだったな、すまなかった。」pc
  7795.         }
  7796.         !|(8);「さぁ～、w最後の大仕事、;片付けましょうか。」pc
  7797.         !|(7);「ええ！」pc
  7798.         !|(0);「ああ、これが最後の決戦だ！p;いくぞ！」pc
  7799.         //&partyspeed 1
  7800.         event++                //event=23
  7801.     //test        ここで、セーブした時、レベルが、低いとはまる恐れがあるので、
  7802.     //        セーブ出来なくしました。
  7803.     //    !o(0)ここで、セーブしますか？
  7804.     //    %selectlist = { そうだな、そうするか,いや、このまま行く }
  7805.     //    &if (%select==0) {
  7806.     //        !c
  7807.     //        //&save @40,%px,%py,%down
  7808.     //        &save @40,@0,%down
  7809.     //    } &else {
  7810.     //        !cセーブしませんでした。pc
  7811.     //    }
  7812.     }
  7813.  
  7814.  
  7815. #@1                    //サイアン
  7816.     &if (%direc>=0) {
  7817.         &&
  7818.     }
  7819.     &if (event!=21) {
  7820.         &&
  7821.     }
  7822.     !|(12);「フハハハハハ！p;よく来たな。;それも、最後のいけにえを;
  7823.     !ここまで運んでくれるとはな。」pc
  7824.     !|(7);「どういうことなの？」pc
  7825.     !|(0);「出てこい|(12)！p;ここにいることは、;分かっている！」pc
  7826.     !|(12);「そうだな。」pc
  7827.     %manpoint(1) = { -1,-1 }
  7828.     &on
  7829.     !|(8);「あんたが、|(12)だね。p;ハンナや、;たくさんの人達の仇！」pc
  7830.     &if ((event1 and 8)!=0) {
  7831.         !|(11);「覚悟するんだな|(12)！」pc
  7832.         !|(12);「死にぞこないの、;ガーゴイルか。」pc
  7833.     }
  7834.     !|(0);「お前は、ここで終だ！」pc
  7835.     &bgm 0
  7836.     &battle $1000,23,サイアン,1
  7837.     &if (%exitcode==1) {
  7838.         !|(7)、|(8);「きゃぁ～！;|(0)！」pc
  7839.         //&exec bin\color.x 0 31 0
  7840.         !|(12);「これで、ナリスプリトン様が、;完全復活される！p;
  7841.         &bgm -1
  7842.         !フwハwハwハwハwハ！」pc
  7843.         //&spppal map\darkall.PAL
  7844.         &jmp GOVER
  7845.     }
  7846.     &jsr Pset
  7847.     &jsr gold_Gover
  7848.     &bgm 17
  7849.     !|(12);「そっ、wそんな馬鹿な！ww;しっ、wしかし。」pc
  7850.     &if ((event1 and 8)!=0) {
  7851.         !|(11);「いかん！;|(0)よけるんだ！」pc
  7852.     }
  7853.     !|(0);「なっ、wなんだ！」
  7854.     &freash $7c0        // 00000 11111 00000 0
  7855.     &freash $f800        // 11111 00000 00000 0
  7856.     &freash $3e        // 00000 00000 11111 0
  7857.     &freash $07fe        // 00000 11111 11111 0
  7858.     &freash $f83e        // 11111 00000 11111 0
  7859.     &freash $ffc0        // 11111 11111 00000 0
  7860.     &freash 65535        // 11111 11111 11111 1
  7861.     &bgm -1
  7862.     !c
  7863.     &exec bin\color.x 10 31 0
  7864.     &complete
  7865.     &exec bin\monocol.x 0 0 0
  7866.     event++                    //event=22
  7867.     &goto2 夢,@1,%down
  7868.  
  7869.  
  7870.  
  7871. #@2                    //ナリスプリトン
  7872.     &if (%direc>=0) {
  7873.         &&
  7874.     }
  7875.     !|(0);「ここは、;魔界へと通じる穴なのか！」pc
  7876.     &if ((event1 and 8)!=0) {
  7877.         !|(11);「そういうことだ！」pc
  7878.     } &else {
  7879.         !|(7);「底が見えないくらい深い;ですね。」pc
  7880.     }
  7881.     !|(0);「来るぞ！」pc
  7882.     &bgm 0
  7883.     &exec bin\storm.x
  7884.     &battle $1000,22,ナリスプリトン,1
  7885.     &if (%exitcode==1) {
  7886.         &bgm -1
  7887.         !c
  7888.         !|(7)、|(8);「きゃぁ～～！;
  7889.         !|(0)たすけて～～！」pc
  7890.     }
  7891.     &jsr gold_Gover
  7892.     &wait 300
  7893.     &if ((event1 and 8)==0) {
  7894.         !|(0);「・w・w・w親父、母さん、w;
  7895.         !そして、兄さん達、www;
  7896.         !奴を倒すことができたよ。」
  7897.     } &else {
  7898.         !|(11);「やったな、|(0)！」wwwc
  7899.         !|(0);「ああ。ww;これで、これでよかったんだ。www;
  7900.         !・w・w・w親父、母さん、w;
  7901.         !そして、兄さん達。」
  7902.     }
  7903.     &partyspeed 1
  7904.     &bgm 19
  7905.     &wait 550
  7906.     !c
  7907.     &wait 1000
  7908.     &exec bin\sepia.x
  7909.     &wait 300
  7910.     &jsr FADEOUT
  7911.     &spppal map\darkall.PAL
  7912.     ending++            //ending=1
  7913.     &goto OPENING5
  7914.  
  7915. #@40
  7916.     &bgm 9
  7917.     !|(0);「俺は、必ずやりとげる！」pc
  7918.     &if ((event1 and 8)!=0) {
  7919.         !|(11);「そうだ、その意気だ！;私も負けられない！」pc
  7920.         !|(8);「あたしだって、そうよ！」pc
  7921.         !|(7);「わたし、少し恐いけど、;皆が居てくれるからw・w・w・。」pc
  7922.     } &else {
  7923.         !|(7);「わたし、w;なんだか恐いw・w・w・。」pc
  7924.         !|(8);「あたしだって、恐いわ。;でも、ここまで来たら、;
  7925.         !もう行くしかないわ！」pc
  7926.         !|(0);「大丈夫だ！ww;とは、言い切れないが、;皆無事戻れると思う。p;
  7927.         !いやっ、絶対に戻れる！;俺は、そう信じている。」pc
  7928.         !|(7);「ええ、そうですね。;生きる希望を、持ち続けないと;いけませんよね。」pc
  7929.         !|(8);「そうよ、なにも負けるって;決まったわけじゃないでしょ。」pc
  7930.         !|(0);「覚悟は、いいな！」pc
  7931.         !|(7);「ええ！」pc
  7932.         !|(8);「もちろんよ！」pc
  7933.     }
  7934.     &bgm 0
  7935.     !|(0);「よしっ、行こう！」pc
  7936.     &bgm 17
  7937.  
  7938.  
  7939.  
  7940.                                     
  7941. [夢]                //フレイルの夢(悪夢)
  7942.                                     
  7943.     &map map\dream.MAP        //夢.MAP
  7944.     &if (event==17) {
  7945.         &mappal map\black.PAL
  7946.     }
  7947.     &if (ending!=0) {
  7948.         %mandef(1) = { $b,0,$20,%up,0 }
  7949.         %mandef(2) = { $b,0,$40,%up,0 }
  7950.         %mandef(3) = { $e,0,$20,%up,0 }
  7951.         %mandef(4) = { $e,0,$20,%up,0 }
  7952.         %mandef(5) = { $e,0,$20,%up,0 }
  7953.         &on
  7954.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  7955.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  7956.         &wait 80
  7957.         &manmove 1, -2
  7958.         &manmove 2, -2
  7959.         &manmove 3, -2
  7960.         &manmove 4, -2
  7961.         &manmove 5, -2
  7962.         &wait 150
  7963.         &manmove 3, 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  7964.         &manmove 4, 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  7965.         &manmove 5, 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  7966.         &wait 100
  7967.         &manmove 2, 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  7968.         &wait 300
  7969.         &exec bin\sepia.x
  7970.         !　:　:　:　:プログラムw　　　　　　　　　　:
  7971.         !　　　　wＳＪＯＭw　　　　　　　:w
  7972.         !　　　　w鈴木　浩wさん　　　　　:w
  7973.         &wait 300
  7974.         &jsr FADEOUT
  7975.         !c
  7976.         &wait 300
  7977.         &spppal map\darkall.PAL
  7978.         &jsr Pset
  7979.         ending++        //ending=9
  7980.         &goto2 魔界入口,@1,-%left
  7981.     }
  7982.     &if (%nowbgm!=13) {
  7983.         &bgm 13
  7984.     }
  7985.     &partyset 0
  7986.  
  7987.     &if (event==17) {
  7988.         %mandef(1) = { $b,0,$20,%down,0 }        //父
  7989.         %manpoint(1) = { 255,255 }
  7990.         &on
  7991.         !|(0);「ここは、どこだ？」pc
  7992.         %manpoint(1) = { -1,-1 }
  7993.         &on
  7994.         &wait 300
  7995.         !|(0);「ん！？」pc
  7996.         &partymove -8
  7997.         &mappal map\dark.pal
  7998.         !o(1)|(0);「親父？ww親父か？w;本当にそうなのか！」pc
  7999.         !o(1)|(0);「待ってくれ！w;
  8000.         &partymove 8
  8001.         !俺を、w俺を一人にしないでくれ！p;
  8002.         &manmove 1, 8,8
  8003.         !お願いだよ！w;
  8004.         &manmove 1, 8,8
  8005.         !一人にしないでよ～！w;
  8006.         &manmove 1, 8,8
  8007.         !なんでだよ～！w;
  8008.         &manmove 1, 8,8
  8009.         !なんで皆、w;行っちゃうんだよ～！」
  8010.         &bgm -1
  8011.         &exec bin\white.x
  8012.         !c
  8013.         //ほんとは、キスシーンを入れようかと思ったのですが、自粛しました。
  8014.         &if (セシル>=ミーナ) {
  8015.             &partyset 0,7
  8016.             !|(7);「|(0)！w|(0)！w;大丈夫ですか。」pc
  8017.             !|(0);「うっ、wうう～～～。」pc
  8018.             !|(7);「しっかりしてください！p;お願い、死なないで。」pc
  8019.             !|(0);「うっ、w俺は、大丈夫だ。」pc
  8020.             !|(7);「ごめんなさい。p;わたしが地面に;叩き付けられないように、;
  8021.             !わたしをかばって、;わたしの下敷きに。」pc
  8022.             !|(0);「憶えてないな、それより、;君が無事でなによりだ！p;
  8023.             !すまないが、起上がるのに手を;貸してくれないか。」pc
  8024.             !|(7);「ええ。」pc
  8025.             セシル+=50
  8026.         } &else {
  8027.             &partyset 0,8
  8028.             !|(8);「おいっ|(0)！w;死んじゃったのかい！」pc
  8029.             !|(0);「うっ、w勝手に殺すなよ、;俺は、生きている。」pc
  8030.             !|(8);「よかったわ！p;ぴくりともしないから、;
  8031.             !死んじゃったかと思ったわよ！p;ほんと、よかったわ。」pc
  8032.             !|(0);「この程度のことで、;死ぬほどやわじゃない！」pc
  8033.             !|(8);「それもそうだね。p;あんたは、体だけは、;丈夫だからね！」pc
  8034.             !|(0);「それより、;早く、降りてくれよ！」pc
  8035.             !|(8);「あっ、ごめんごめん！p;
  8036.             !でも、その様子じゃ、;何ともないみたいだね。p;いまおりるから！」pc
  8037.             ミーナ+=50
  8038.         }
  8039.         w_speed=10
  8040.         &jsr FADEOUT
  8041.         &goto2 城Ｂ５,@2,-%down
  8042.     }
  8043.     &commenu 0
  8044.     &partyspeed 1
  8045.     %mandef(1) = { $b,0,$20,%up,0 }            //父（ラフレス）
  8046.     %mandef(2) = { $b,0,$40,%up,0 }            //母（フローラ）
  8047.     %mandef(3) = { $e,0,$20,%up,0 }            //兄（長男：ライル）
  8048.     %mandef(4) = { $e,0,$20,%up,0 }            //兄（二男：セレス）
  8049.     %mandef(5) = { $e,0,$20,%up,0 }            //兄（三男：ガーディス）
  8050.     %mandef(6) = { $d,0,$80,%up,0 }            //ゴンドワナ国兵、大臣
  8051.     %mandef(7) = { $d,0,$80,%up,0 }            //ゴンドワナ国兵、側近
  8052.     %mandef(8) = { $d,0,$80,%up,0 }            //ゴンドワナ国兵
  8053.     %mandef(9) = { $c,0,$60,%down,-1 }        //ゴンドワナ国王
  8054.     %mandef(10)= { $d,0,$80,%right,0 }        //ダイナアランの洞窟の悪魔
  8055.     %mandef(11)= { $d,0,$00,%right,0 }        //キンカット塔の悪魔
  8056.     %mandef(12)= { $9,0,$a0,%right,0 }        //ナイトメア
  8057.                             //１～９：国民
  8058.     %mandef(13)= { $b,0,$8f,%down,-1 }        //カサンドラクロスソード
  8059.     &on
  8060.     &exec bin\toPAL.x map\darkall.PAL
  8061.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  8062.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  8063.     !|(0);「待ってよ、ぼくだけ、どうして;おいてけぼりにしたんだよ。p;ぼくだって頑張れば、;
  8064.     !役に立つと思うし。」pc
  8065.     &manmove 1, -2
  8066.     &manmove 2, -2
  8067.     &manmove 3, -2
  8068.     &manmove 4, -2
  8069.     &manmove 5, -2
  8070.     !|(0)の親父;「いいか、|(0)！;お前は、ここに残るんだ！」pc
  8071.     !|(0);「どうしてだよ、;ぼくも行くよ！」pc
  8072.     !|(0)の母さん;「|(0)、;言うことを聞いて！」pc
  8073.     !ライル兄さん;「|(0)、分かってくれ、;ナリスプリトンを倒すには、;
  8074.     !聖封魔法を使うしかない。p;それには、;５人の力が必要なんだ。」pc
  8075.     !|(0);「でも！」pc
  8076.     !セレス兄さん;「すまない、|(0)！ww;アースバインド！」
  8077.     &freash 65535
  8078.     !pc
  8079.     !|(0);「うっ、w動けないよ！;なんで、なんでだよ！」pc
  8080.     !ガーディス兄さん;「行きましょう！」pc
  8081.     &manmove 3, 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  8082.     &manmove 4, 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  8083.     &manmove 5, 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  8084.     !|(0)の母さん;「|(0)。;wwあなたは、生きぬいて！」pc
  8085.     &manmove 2, 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  8086.     !|(0);「母さ～～～ん！」pc
  8087.     !|(0)の親父;「|(0)、お前は、;自分では気付いてないが、p;
  8088.     !聖戦士としての優れた能力を;持っている。p;いいな、強く生きるんだぞ！」pc
  8089.     &manmove 1, 8,8
  8090.     !|(0);「ぼくを、;wぼくを一人にしないでよ！w;
  8091.     &manmove 1, 8,8
  8092.     !お願いだよ！w;
  8093.     &manmove 1, 8,8
  8094.     !一人にしないでよ～！w;
  8095.     &manmove 1, 8,8
  8096.     &bgm -1
  8097.     !なんでだよ～！w;
  8098.     &manmove 1, 8,8,8,8
  8099.     !なんで皆、w;行っちゃうんだよ～！」wwc
  8100.     &freash $ffc1
  8101.     &pcm 12
  8102.     &exec bin\color.x 0 31 20
  8103.     &wait 650
  8104.     &move @2,%down
  8105.     &sppsp chara\dreamch.SPP
  8106.     &exec bin\toPAL.x map\darkall.PAL
  8107.     !|(0);「どうしてだよ、ぼく一人で、;何が出来るって言うんだよ！」pc
  8108.     &partymove 2,-6,-2,-4,-8
  8109.     !|(0);「これは、www父さんの剣！ww;カサンドラクロス！」pc
  8110.     &partymove 8,8,8,8,8,8
  8111.     &manmove 13, 8
  8112.     %manpoint(13) = { 767,767 }
  8113.     &on
  8114.     &bgm 18
  8115.     !|(0);「父さん、w母さん、w兄さん達、w;
  8116.     !ぼくは、これからどうすればww;いいんだよ～！」pc
  8117.  
  8118.  
  8119.  
  8120. #@3
  8121.     &manmove 7, 8,8,8,8
  8122.     !ゴンドワナ兵;「あっ、wあなた様が、あの怪獣を;倒してくれたのですね！」pc
  8123.     !|(0);「えっ、wいや、wぼくは、wその。」pc
  8124.     !ゴンドワナ兵;「ささっ、こちらへどうぞ！」pc
  8125.     &manmove 7, 2,2
  8126.     &partymove 2,2,2
  8127.     w_speed=20
  8128.     &bgm -1
  8129.     &exec bin\color 0 0 0
  8130.     &bgm 13
  8131.     !|(0);「そうだ、俺は、この時、;自分は倒してないと、;言うことが出来なかったんだ。」pc
  8132.     &move @4,%up
  8133.     %mandef(6) = { $b,0,$68,%down,-1 }
  8134.     %manpoint(6) = { 44,16 }
  8135.     %mandef(7) = { $d,0,$6c,%down,-1 }
  8136.     %manpoint(7) = { 50,16 }
  8137.     &on
  8138.     &bgm -1
  8139.     &exec bin\toPAL.x map\darkall.PAL
  8140.     &bgm 12
  8141.     &partymove 8,8,8,8,8,8,8,8,8,8,8
  8142.     !ゴンドワナ国王;「おおっ、そなたが、;あの怪獣を倒した者か。」pc
  8143.     !|(0);「あの～、ぼくは。」pc
  8144.     !ゴンドワナ国王;「そんなに気を使うことはない。p;ところで、お主の名は！」pc
  8145.     !|(0);「ええと、wぼくは、;|(0)w・カサンドラw;です。」pc
  8146.     !ゴンドワナ国王;「そうか、いい名だな！p;今夜、パーティーがあるのだが、;
  8147.     !お主にも来てもらいたいのだが、;どうだ。」pc
  8148.     !|(0);「はい、よろこんで。」pc
  8149.     !ゴンドワナ国王;「そうか、;それはよかった。」pc
  8150.     &bgm -1
  8151.     &exec bin\color 0 0 0
  8152.     &bgm 13
  8153.     !|(0);「俺は、;とうとう言い出せなかった。p;そして、多くの褒美をもらった。p;
  8154.     !これで、当分は生きていける、;俺は、その時そう思った。」pc
  8155.     &move @5,%down
  8156.     %mandef(1) = { $8,0,$00,%up,0 }
  8157.     %manpoint(1) = { 44,68 }
  8158.     %mandef(2) = { $9,0,$a0,%up,0 }
  8159.     %manpoint(2) = { 49,68 }
  8160.     %mandef(3) = { $d,0,$c0,%up,0 }
  8161.     %manpoint(3) = { 50,70 }
  8162.     %mandef(4) = { $e,0,$20,%up,0 }
  8163.     %manpoint(4) = { 45,72 }
  8164.     %mandef(5) = { $e,0,$c0,%up,0 }
  8165.     %manpoint(5) = { 47,74 }
  8166.     %mandef(6) = { $9,0,$00,%up,0 }
  8167.     %manpoint(6) = { 50,76 }
  8168.     %mandef(7) = { $8,0,$e0,%up,0 }
  8169.     %manpoint(7) = { 44,78 }
  8170.     %mandef(8) = { $d,0,$00,%up,0 }
  8171.     %manpoint(8) = { 44,82 }
  8172.     %mandef(9) = { $c,0,$e0,%up,0 }
  8173.     %manpoint(9) = { 50,82 }
  8174.     &on
  8175.     &bgm -1
  8176.     &exec bin\toPAL.x map\darkall.PAL
  8177.     &bgm 8
  8178.     &partymove 2,2,2,2,2
  8179.     !ゴンドワナの人々;「|(0)さまだ！」pc
  8180.     &partymove 2,2,2
  8181.     &manmove 2,-4
  8182.     &manmove 1,6
  8183.     !女の人;「ありがとございました。;|(0)さま！」pc
  8184.     !老人;「ありがたや。p;わしも、生きてるうちに;あなた様の様な方に会えるとは。p;
  8185.     !|(0)様！」pc
  8186.     &partymove 2,2,2,2
  8187.     &manmove 4,-6
  8188.     &manmove 3,4
  8189.     !男の人;「ありがとう|(0)様！p;ぜひ、わたくしの、;宿屋に来てください。p;
  8190.     !お願いします。」pc
  8191.     !|(0);「・・・・。」pc
  8192.     !若い男;「あの、|(0)さま、;サインをください。」pc
  8193.     &partymove 2,2
  8194.     !中年の男;「|(0)様。;ぜひ、わしの武器屋に、」wwc
  8195.     &bgm -1
  8196.     !|(0);「もうやめてくれ！」
  8197.     &partyspeed 2
  8198.     &pcm 13
  8199.     %mspeed=0
  8200.     !c中年の男;「うわっ！」
  8201.     %mspeed=5
  8202.     &manmove 5,4,4,-6
  8203.     !c
  8204.     &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2
  8205.     &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  8206.     &exec bin\color 0 0 0
  8207.     &bgm 13
  8208.     !|(0);「俺は、いい加減いやになった。p;遭う奴の誰もが、;|(0)様、様、様と;言いやがる。p;
  8209.     !俺は、様などと言われる資格の;無い弱虫だ。p;この時からだ、俺は、;敬称を付けられるのが、;
  8210.     !いやで仕方なくなったのは。」pc
  8211.     &move @6,%left
  8212.     &sppsp chara\dreammon.SPP
  8213.     &bgm -1
  8214.     %bcirclesize=128
  8215.     &blackcircle 1
  8216.     &on
  8217.     &exec bin\toPAL.x map\darkall.PAL
  8218.     &bgm 15
  8219.  
  8220.  
  8221. #10
  8222.     !|(0);「覚悟してもらおうか！」pc
  8223.     !ダイナアラン洞窟の悪魔;「ははははっ！w;お前ごとき若造が。p;
  8224.     !お前も、;俺様のめしにしてやるわ！」pc
  8225.     !|(0);「能書きはいい！p;メガボルト！！」wc
  8226.     &pcm 1
  8227.     %mandef(10) = { $7,0,$80,%right,0 }
  8228.     %manpoint(10) = { -1,-1 }
  8229.     &on
  8230.     &freash $ffc1
  8231.     !ダイナアラン洞窟の悪魔;「うぎゃ～！」
  8232.     &wait 200
  8233.     MANsub=10
  8234.     &jsr 消滅
  8235.     !c
  8236.     &bgm -1
  8237.     &exec bin\color 0 0 0
  8238.     &bgm 13
  8239.     !|(0);「俺は、あの時のことを、;忘れようと、依頼を受け、p;あるいは、探しだし、;
  8240.     !魔物達を倒し続けた。p;いや、むしろ、;楽しんでいたのかもしれない。」pc
  8241.     &move @7,%left
  8242.     &bgm -1
  8243.     &blackcircle 0
  8244.     &exec bin\toPAL.x map\darkall.PAL
  8245.     &bgm 14
  8246.  
  8247.  
  8248.  
  8249. #11
  8250.     !キンカット塔の悪魔;「けっけっけっけ！p;これはこれは、あんたが、;次のいけにえかな。」pc
  8251.     !|(0);「違うな、俺は、お前を;倒すために雇われた者だ！」pc
  8252.     !キンカット塔の悪魔;「けっ！p;村の奴ら、こんなやつを;差し向けたってわけか。p;
  8253.     !ちょうどいい、お前を殺し、;村の奴らの見せしめにするか。」pc
  8254.     &bgm -1
  8255.     !|(0);「それは、どうかな。」pc
  8256.     &pcm 13
  8257.     &wait 80
  8258.     &pcm 13
  8259.     &wait 80
  8260.     &pcm 13
  8261.     &wait 20
  8262.     &pcm 13
  8263.     &wait 30
  8264.     &pcm 13
  8265.     !キンカット塔の悪魔;「ばっwばかな！ww;こんな奴にやられるとは。」
  8266.     MANsub=11
  8267.     &jsr 消滅
  8268.     !c
  8269.     &exec bin\color 0 0 0
  8270.     &bgm 13
  8271.     !|(0);「魔物退治に明け暮れた俺は、;いつしか、デビルバスターと;
  8272.     !呼ばれるようになっていた。p;デビルバスター、魔物退治屋か。www;いや、;
  8273.     !魔物達を、悪魔のごとく;
  8274.     !殺し続けた俺の姿を見て、;そう呼んだのかもしれない。」pc
  8275.     &move @8,%left
  8276.     &blackcircle 1
  8277.     &exec bin\toPAL.x map\darkall.PAL
  8278.     !|(0);「何だここは、いままでに;来たことがないはずだ。wwいや、;
  8279.     !忘れてしまっているのかも;知れないな。」pc
  8280.  
  8281.  
  8282.  
  8283. #12
  8284.     !ナイトメア;「やっとここまで来たか、;ここでお前の精神を破壊し、;
  8285.     !私の操り人形と;なってもらおうか。」pc
  8286.     !|(0);「なに！;どういうことだ！」pc
  8287.     !ナイトメア;「いままで見せてきたのは、;お前の過去の暗黒面だ。p;
  8288.     !お前は、親達を見殺しにし、;その親達の手柄を、;自分がしたかのように装い、p;
  8289.     !そして、自分の快楽のために、;殺戮を繰り返してきた。」pc
  8290.     !|(0);「だまれ！;俺は、そんなんじゃない！」pc
  8291.     !ナイトメア;「だったら何だと言うんだ。」pc
  8292.     !|(0);「おのれ～～！」pc
  8293.     &bgm 0
  8294.     &battle $1000,23,ナイトメア,1
  8295.     &commenu 1
  8296.     &jsr gold_Gover
  8297.     &bgm 13
  8298.     !ナイトメア;「そんなばかな、;私の悪夢のなかで負けるとは！p;
  8299.     !うぉ～～～！」
  8300.     MANsub=12
  8301.     &jsr 消滅
  8302.     !c|(0);「俺は、ww俺は、・w・w・w・。」
  8303.     &bgm -1
  8304.     &exec bin\white.x
  8305.     !c
  8306.     &sppsp chara\charact.SPP
  8307.     &jsr Pset
  8308.     &complete
  8309.     &partyspeed 2
  8310.     &goto2 魔界入口,@1,-%left
  8311.  
  8312.  
  8313.                                     
  8314. [シンシア墓地]                //シンシア城の墓地にて
  8315.                                     
  8316.     event0=0
  8317.     &mappal map\light.PAL
  8318.     &map map\graveyrd.MAP        //シンシア墓地.MAP
  8319.     &if (ending==0) {
  8320.         &bgm 18
  8321.     }
  8322.     &partyspeed 1        //お墓では、走らないように！
  8323.     %mandef(1)= { 11, 0,$40,%up,  -1 }         //ハンナの母
  8324.     %mandef(2)= { 8, 0,$40,%up,  -1 }        //セシル
  8325.     %manpoint(2)={ 511,511 }
  8326.     %mandef(3)= { 11,0,$60,%up,  -1 }        //ミーナ
  8327.     %manpoint(3)={ 511,511 }
  8328.     %mandef(10)={ 10,0,$8b,%down,-1 }        //墓
  8329.     %mandef(11)={ 10,0,$8b,%down,-1 }        //墓
  8330.     %mandef(12)={ 10,0,$8d,%down,-1 }        //ハンナの墓
  8331.     %mandef(13)={ 10,0,$8d,%down,-1 }        //ハンナの父の墓
  8332.     %mandef(14)={ 10,0,$8b,%down,-1 }        //墓
  8333.     %mandef(15)={ 10,0,$8b,%down,-1 }        //墓
  8334.     %mandef(16)={ 10,0,$8b,%down,-1 }        //墓
  8335.     %mandef(17)={ 10,0,$8c,%down,-1 }        //墓
  8336.     %mandef(18)={ 10,0,$8c,%down,-1 }        //墓
  8337.     %mandef(19)={ 10,0,$8b,%down,-1 }        //墓
  8338.     %mandef(20)={ 10,0,$8b,%down,-1 }        //墓
  8339.     %mandef(21)={ 10,0,$8d,%down,-1 }        //墓
  8340.     %mandef(22)={ 10,0,$8b,%down,-1 }        //墓
  8341.     %mandef(23)={ 10,0,$8b,%down,-1 }        //墓
  8342.     %mandef(24)={ 10,0,$8d,%down,-1 }        //墓
  8343.     &on
  8344.     &if (ending!=0) {
  8345.         &partyspeed 1
  8346.         &partymove 8,8,8,8,8,8,8,8,8
  8347.         &partymove 6,6,6,6,6,6,6,6
  8348.         &partymove 6,6,6,6,6,6,8,8,-6
  8349.         &partyspeed 2
  8350.         &wait 300
  8351.         &exec bin\sepia.x
  8352.         !　:　:　:　:モンスターキャラクターw　　　　　:
  8353.         !　　　　w鈴木　浩wさん　　　　　:
  8354.         !　　　　wポチ丸wさん　　　　　　:
  8355.         !　　　　wＳＪＯＭw　　　　　　　
  8356.         &wait 300
  8357.         &jsr FADEOUT
  8358.         !c
  8359.         &wait 300
  8360.         &spppal map\darkall.PAL
  8361.         &partyset 0,7,8
  8362.         ending++        //ending=7
  8363.         &goto2 城Ｂ４,@4,-%right
  8364.     }
  8365.     !　;　　［シンシア城墓地２１区］pc
  8366.  
  8367. #1
  8368.     &switch (event0 and 3) {
  8369.     &case 0:
  8370.         !|(0);「すまない、;助けることができず。」pc
  8371.         !ハンナの母;「いいえ、;ありがとうございました。」pc
  8372.         !|(0);「いや、;俺がもっと早く駆けつければ、;ハンナは、きっと。」pc
  8373.         !ハンナの母;「そんなに自分を責めないで;ください。p;あなたは、;
  8374.         !精一杯の事をしてくれました。p;私は、こんな形とはいえ、;
  8375.         !娘に会うことが出来ただけでも。;うぅっ・・・・。」pc
  8376.         event0++
  8377.         &&
  8378.     &case 1:
  8379.         !ハンナの母;「ハンナは、;私達夫婦の一人娘でした。p;
  8380.         !おっとは、ハンナが生まれた時、;女の子だったことを、;
  8381.         !とても残念がっていました。p;
  8382.         !でも、おっとは、ハンナを;とても愛してくれました。p;
  8383.         !ハンナも、おっとのことを、;とても尊敬していました。p;
  8384.         !すいません、;つい思い出話をしてしまって。」pc
  8385.         !|(0);「いや、かまわないよ。;その気持ち、;俺には痛いほど分かる。」pc
  8386.         event0++
  8387.         &&
  8388.     &case 2:
  8389.         !|(0);「ところで、ハンナの親父は、;どうしたんだ。p;
  8390.         !葬式にも、来なかったしな。」pc
  8391.         !ハンナの母;「おっとは、;シンシア城の兵隊で、p;サレスの村に出兵した時、;
  8392.         !魔物に殺されました。p;おっとの墓は、;ハンナの墓の隣にあります。p;
  8393.         !おっとは、正義感の強い人で、;あの時も、;
  8394.         !村の娘達を必ず守り貫くと;言い残して、p;
  8395.         !でも、帰ってきた時は、;ハンナと同じように、;なれ果てた姿で・・・。」pc
  8396.         !|(0);「そうだったのか、;悪いことを、聞いたな。」pc
  8397.         !ハンナの母;「いいえ、あなたには、;無事戻ってきて欲しいのです。」pc
  8398.         !|(0);「ん。;なぜそんなことを言うんだ。」pc
  8399.         !ハンナの母;「私には、分かります。p;あなたは、;もう一度フレデリック城に、;
  8400.         !向かうつもりなのでしょ。」pc
  8401.         !|(0);「いっ、いや。」pc
  8402.         !ハンナの母;「いいえ、あなたの目を見れば、;分かります。p;
  8403.         !あのひとも、あの時、;あなたと同じ目を;してましたから。p;
  8404.         !必ず、w必ず、;無事戻ってきてください。」pc
  8405.         !|(0);「ああ。」pc
  8406.         %manpoint(2)= { -1,1 }
  8407.         %manpoint(3)= { -1,1 }
  8408.         &on
  8409.         event0++
  8410.         &&
  8411.     &default:
  8412.         !ハンナの母;「あなたの無事を、;祈っています。」pc
  8413.     }
  8414.  
  8415.  
  8416.     //ＦＦＶＩＩの登場人物とは、一切関係ありません。(^O^)
  8417.  
  8418. #10
  8419.     !|(0);「［ザックス・ルーハウス;ここに眠る］か。」pc
  8420.  
  8421. #11
  8422.     !|(0);「［クラウド・デンジャミン］;どこかで聞いた名だな。」pc
  8423.  
  8424. #12                    //ハンナの墓
  8425.     &if ((event0 and 4)==0) {
  8426.         !|(0);「ハンナ・w・w・w・w・。;すまない。p;
  8427.         !俺は、親父が言うような;聖戦士なんかにはなれない。p;
  8428.         !あの時、俺は、俺は！」pc
  8429.         &partyspeed 2
  8430.         &partymove -6,-4,-6,-4,-2
  8431.         &partyspeed 1
  8432.         !|(0);「今は、そんなことを、;言ってる場合じゃない！p;
  8433.         !やつを、|(12)を、;倒さねばならない。p;
  8434.         !いや、俺はw・w・w・、俺は、必ず、;|(12)を倒す！！」pc
  8435.         event0=event0 or 4
  8436.         &&
  8437.     }
  8438.         !|(0);「ハンナ、安らかに、;眠ってくれ。」pc
  8439.  
  8440. #13                    ハンナの父の墓
  8441.     &if ((event0 and 3)==3) {
  8442.         !|(0);「ハンナの親父の墓w・w・w・wか。」pc
  8443.         &&
  8444.     }
  8445.     !|(0);「［ジョナサン・キース］;誰の墓だろう。」pc
  8446.  
  8447. #14
  8448.     !|(0);「［セフィロス・ガイアレス］;ん～、知ってるような、;知らないような。」pc
  8449.  
  8450. #15
  8451.     !|(0);「［ティファ・サーミスレイ］;聞いたことがあるような？」pc
  8452.  
  8453. #16
  8454.     !|(0);「［エアリス・グランダリス］;ん～、思い出せないな。」pc
  8455.  
  8456. #17
  8457.     !|(0);「［大体半分ぐらいクリア！！］;って、なんだこれ！。」pc
  8458.  
  8459. #18
  8460.     !|(0);「［この墓場にも宝あり］だと、;ほんとに墓かこれ。」pc
  8461.  
  8462. #19
  8463.     !|(0);「［バレット・ブロマイド］;ごつい奴だったような。」pc
  8464.  
  8465. #20
  8466.     !|(0);「［ユフィ・ゼムズ］;やっぱり、思い出せないな。」pc
  8467.  
  8468. #21
  8469.     !|(0);「［ケットシ・サーペンタッド］;ん～、猫だったような。」pc
  8470.  
  8471. #22
  8472.     !|(0);「［ヴィンセント・ロック］;賞金稼ぎだったかな。」pc
  8473.  
  8474. #23
  8475.     !|(0);「［レッド・サターン］;ん～、人じゃなかったような。」pc
  8476.  
  8477. #24
  8478.     !|(0);「［シド・ハイウェイ］;渋いおっさんだったかな～。」pc
  8479.  
  8480. #@0
  8481.     &if ((event0 and 3)!=3) {
  8482.         !|(0);「俺は、このまま、;帰っていいのだろうか。」pc
  8483.         &partymove 8,8,8
  8484.         &&
  8485.     }
  8486.     &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  8487.     !|(8);「|(0)！w;どこ行く気だい。」pc
  8488.     !|(0);「もちろん、;決まってるだろ。」pc
  8489.     &partymove 2,2,2,2,2
  8490.     &bgm -1
  8491.     &partymove 2,2,2,2,2
  8492.     !|(7);「|(0)・・・・。」ww
  8493.     w_speed=20
  8494.     &jsr FADEOUT
  8495.     &partyspeed 2
  8496.     !c
  8497.     event0=0
  8498.     &goto2 城壁前,131,62,%up
  8499.  
  8500. #@1
  8501.     &if (%direc!=8) {
  8502.         &&
  8503.     }
  8504.         //一応、キングスフィールドのパロのつもり！
  8505.     &if ((event0 and 8)==0) {
  8506.         !|(0);「壁に文字が刻んである。;
  8507.         !［ここは、王家の墓所、;許可無き者入るべからず］
  8508.         !か、p;俺には、関係ないな。」pc
  8509.         event0=event0 or 8
  8510.     }
  8511.  
  8512. #@42
  8513.     &if (%direc!=8) {
  8514.         &&
  8515.     }
  8516.     Tsub=Tシンシア墓地
  8517.     Tbit=1
  8518.     &if ((Tsub and Tbit)==0) {
  8519.         !|(0);「墓地の道具置き場か。p;ん、何か落ちてるぞ。」pc
  8520.         Tno=(リアリゼーション)
  8521.         &jsr 宝ゲット
  8522.         Tシンシア墓地=Tsub
  8523.     }
  8524.  
  8525.                                     
  8526. [ENDING]            //ラストイベント
  8527.                                     
  8528.     &map map\opening.MAP
  8529.     &bgm 8
  8530.     &partyset 0
  8531.     %mandef(1) = { 8,0,$20,%down,0 }
  8532.     %manpoint(1) = { 767,767 }
  8533.     &on
  8534.     &partymove 2,2,2,2,2,2,2,2,2,2,2,2
  8535.     &if (セシル>=ミーナ) {
  8536.         &if (セシル<100) {
  8537.             &jmp end100
  8538.         }
  8539.         %mandef(1) = { 8,0,$40,%down,0 }
  8540.         %manpoint(1) = { 14,19 }
  8541.         &on
  8542.         &manmove 1, 2,2,2,2,2,2,2
  8543.         &if (セシル<700) {
  8544.             &jmp endc100
  8545.         }
  8546.         &jmp endc
  8547.     } &else {
  8548.         &if (ミーナ<100) {
  8549.             &jmp end100
  8550.         }
  8551.         %mandef(1) = { 11,0,$60,%up,0 }
  8552.         %manpoint(1) = { 32,36 }
  8553.         &on
  8554.         &partymove 2,2,2,2,2,2
  8555.         !|(8);「待ってよ|(0)！」pc
  8556.         &partymove -6
  8557.         &manmove 1, 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  8558.         &if (ミーナ<700) {
  8559.             &jmp endm100
  8560.         }
  8561.         &jmp endm
  8562.     }
  8563.  
  8564.  
  8565. &label end100
  8566.     &partymove 2,2,2,2,2,2,2,-8
  8567.     !|(0);「これで、;この国も大丈夫だろう。p;俺は、;また、放浪の旅に出るか。」pc
  8568.     &partymove 2,2,2,2
  8569.     &bgm -1
  8570.     &jsr move_fadeout
  8571.     &partymove 2,2,2,2,2
  8572.     &goto END
  8573.  
  8574.  
  8575. &label endc100
  8576.     !|(7);「|(0)w・w・w・。」pc
  8577.     &partymove -8
  8578.     !|(7);「行ってしまうのですか？」pc
  8579.     !|(0);「ああ。p;仕事は終わったし、;報酬も十分もらった。p;
  8580.     !ここに長居する理由は;ないからな。」pc
  8581.     !|(7);「|(0)、また、;ここに来てくれますか。」pc
  8582.     !|(0);「ん？p;分からないな。;もう二度とここに;来ないかもしれない！」pc
  8583.     !|(7);「そうですか・w・w・w・w・w・w・w、;わたし、;あなたのこと忘れません。」pc
  8584.     !|(0);「じゃぁ、さよならだな！」pc
  8585.     &partymove  2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  8586.     &partymove  2,2,2,2,2,2
  8587.     &bgm -1
  8588.     &exec bin\color 0 0 0
  8589.     !|(7);「わたしw・w・w・、wわたし、w;いつまでも待っています、w;いwつwまwでwも。」ww
  8590.     &jsr FADEOUT
  8591.     !c
  8592.     &goto END
  8593.  
  8594.  
  8595. &label endc
  8596.     !|(7);「|(0)、待って。」pc
  8597.     &partymove -8
  8598.     !|(0);「どうしたんだ|(7)！」pc
  8599.     !|(7);「わたしも、;つれていってください。」pc
  8600.     !|(0);「なんだって、w
  8601.     &partyspeed 2
  8602.     &partymove -6,-4,-6,-4,-8
  8603.     //&partyspeed 1
  8604.     !ダメだ！」pc
  8605.     !|(7);「お願い。」pc
  8606.     !|(0);「つれてなんか行けない。p;俺は、デビルバスターだ。p;この先、;
  8607.     !どんな危険なことが;待っているか分からない。」pc
  8608.     !|(7);「それでもいい！p;わたし、;あなたと一緒なら恐くない。;
  8609.     &manmove 1, 2
  8610.     !お願い|(0)！p;わたし、わたし、;あなたのことを・w・w・w・。」pc
  8611.     !|(0);「|(7)・w・w・w・。」pc
  8612.     !|(7);「・w・w・w・w・。」pc
  8613.     !|(0);「まっ、いいだろう。」pc
  8614.     !|(7);「ほんとですか。」pc
  8615.     !|(0);「ああ。p;それより、;シンシア王は大丈夫か。」pc
  8616.     !|(7);「ええ、;お父様には、もう話しています。」pc
  8617.     !|(0);「そうか、それじゃ、行こうか。」pc
  8618.     !|(7);「ええ。」pc
  8619.     &partyset 0,7
  8620.     %manpoint(1) = { 767,767 }
  8621.     &on
  8622.     &partymove 2,2,2,2
  8623.     &bgm -1
  8624.     &jsr move_fadeout
  8625.     &partymove 2,2,2,2,2
  8626.     &goto END
  8627.  
  8628.  
  8629. &label endm100
  8630.     !|(8);「|(0)！;もう行っちゃうって本当かい。」pc
  8631.     !|(0);「ああ、そうだ。p;元気でな！」pc
  8632.     &partymove 2,2,2
  8633.     &manmove 1, 4,-2
  8634.     !|(8);「ちょっ、wちょっと、p;もう少しゆっくりしていったら;いいじゃない！」pc
  8635.     !|(0);「ん？p;
  8636.     &partymove -8
  8637.     !仕事は終わったし、;報酬も十分もらった。p;ここに残る理由はないからな。」pc
  8638.     !|(8);「そう、じゃいいわ。」pc
  8639.     !|(0);「さよならだな！」pc
  8640.     !|(8);「そうね。」pc
  8641.     &partymove  2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  8642.     &bgm -1
  8643.     &exec bin\color 0 0 0
  8644.     !|(8);「本当に行ちゃった。w;結局、w言い出せなかった。w;|(0)w・w・w・w・w・w・。」ww
  8645.     &jsr FADEOUT
  8646.     !c
  8647.     &goto END
  8648.  
  8649.  
  8650.  
  8651. &label endm
  8652.     !|(0);「なんだ、|(8)。」pc
  8653.     !|(8);「あたしも行くわ！」pc
  8654.     !|(0);「なんだって、w
  8655.     &partyspeed 2
  8656.     &partymove -6,-4,-6,-4,-6
  8657.     //&partyspeed 1
  8658.     !ダメだ！p;俺は、デビルバスター。p;この先どんな危険な目にあうか;分からない。」pc
  8659.     &if (ミーナ貯金==0) {
  8660.         !|(8);「だったら、あたしがいると、;薬なんかに;困らなくてすむわよ。」pc
  8661.     } &else {
  8662.         !|(8);「あたしがいないと;困るんじゃない。p;だって、;お金預かったままだよ。」pc
  8663.         !|(0);「ああ、その金なら、やるよ。p;シンシア王から、;十分報酬をもらったからな。」pc
  8664.         !|(8);「えっ、そうなの。p;あっ、でも、あたしがいると、;薬なんかに困らないわよ。p;
  8665.         !だから、wねっ、wいいでしょ！」pc
  8666.     }
  8667.     !|(0);「ん～。wwまっ、いいだろう。」pc
  8668.     !|(8);「そうこなくちゃね。」pc
  8669.     !|(0);「親父さんは大丈夫か。」pc
  8670.     !|(8);「それなら、心配いらないよ。;『ガンバってこい』だって。」pc
  8671.     !|(0);「そうか、wじゃぁ、行こうか。」pc
  8672.     !|(8);「行こ行こ！」pc
  8673.     &manmove 1, 4,4,-2
  8674.     &partymove 2,2,2
  8675.     &partyset 0,8
  8676.     %manpoint(1) = { 767,767 }
  8677.     &on
  8678.     &partymove 2,2,2,2
  8679.     &bgm -1
  8680.     &jsr move_fadeout
  8681.     &partymove 2,2,2,2,2
  8682.     &goto END
  8683.  
  8684.  
  8685.  
  8686.                                     
  8687. [dummy]                //誤動作防止用
  8688.                                     
  8689.  
  8690.  
  8691.  
  8692.                                     
  8693.             //Subroutine
  8694.                                     
  8695.  
  8696. &label FADEOUT            //fade out light
  8697.     &ldef I=15
  8698.     &on
  8699. &label
  8700.     &contrast I
  8701.     I--
  8702.     &wait w_speed
  8703.     &if (I>=0) {
  8704.         &jmp @b
  8705.     }
  8706.     &rts
  8707.  
  8708. &label 雷            //thunder
  8709.     &if (%rnd(2)==0) {
  8710.         &freash 65535
  8711.     } &else {
  8712.         &freash $ffc1    //1111_1111_1100_0001
  8713.     }
  8714.     &pcm 1
  8715.     &rts
  8716.  
  8717. &label 黄金の泉            //the golden spring
  8718.     &ldef mina_shop
  8719.     &ldef mina_shp0
  8720.     &ldef mina_gold
  8721.     &ldef 選択
  8722.  
  8723.     &if (%partyexist(8)==1) {    //ミーナがいるなら
  8724.         &if (%haveitem(天馬の翼)==0) {
  8725.             %selectlist={回復,セーブ,薬製作,貯金箱}
  8726.         } &else {
  8727.             %selectlist={ 回復,セーブ,薬製作,貯金箱,ワープ }
  8728.         }
  8729.     } &else {
  8730.         %selectlist={回復,セーブ}
  8731.     }
  8732.     
  8733.     !o(0)どうしますか？
  8734.     選択=%select
  8735.     !c
  8736.     &if (選択<0) {
  8737.         &jsr 聖なる砂sub
  8738.         &&
  8739.     }
  8740.  
  8741.     &if(選択==0){
  8742.         &freash $07ff        //0000_0111_1111_1111
  8743.         &complete
  8744.         !|(0);「おっ、いい気分だ！」pc
  8745.         &if (%partyexist(7)==1) {
  8746.             !|(7);「ええ、本当に。」pc
  8747.         }
  8748.         &if (%partyexist(8)==1) {
  8749.             !|(8);「いきかえったわ～。」pc
  8750.         }
  8751.         &jmp 黄金の泉
  8752.     }
  8753.  
  8754.     &if(選択==1){
  8755.         !o(0)データをセーブしますか？
  8756.         %selectlist = { そうさせてもらうよ。,いや、やめとく。 }
  8757.         &if (%select==0) {
  8758.             !c
  8759.             &save @40,%px,%py,%down
  8760.         } &else {
  8761.             !cセーブしませんでした。pc
  8762.         }
  8763.         &jmp 黄金の泉
  8764.     }
  8765.     
  8766. //    &if (%partyexist(8)==1) {            //ミーナの薬製作
  8767.     &if(選択==2){
  8768.         &if ((mina_say and 4)==0) {
  8769.             mina_say=mina_say or 4
  8770.             !|(8);「なぁ、|(0)。」pc
  8771.             !|(0);「なんだ。」pc
  8772.             !|(8);「あたしさぁ、;この水から薬を作れるんだけど;いらないかい。」pc
  8773.             !|(7);「へぇ～、|(8)さんって;すごいんですね。」pc
  8774.             !|(8);「たいしたことないわよ。;あたしはまだまだだよ。」pc
  8775.             !|(0);「そうだな。;作ってもらおうか。」pc
  8776.             !|(8);「今は、こんな時だから、p;
  8777.             !おおまけにまけて、;１／２の値段でいいわね。」pc
  8778.             !|(0);「おいっ、金取るのか？」pc
  8779.             !|(8);「当たり前だよ、;あたしだって商売人だからね。」pc
  8780.             !|(0);「ふぅ～！」pc
  8781.         }
  8782.         !|(8);「で、どの薬にする？」pc
  8783.         %shoplist = { ポーション,ハイポーション
  8784.         ,エクスポーション,リアリゼーション }
  8785. &label
  8786.         mina_shop=%shopsel(50)
  8787.         &if (mina_shop<=0) {            //&switch バグ回避用
  8788.             &if (mina_shop==0) {
  8789.                 &if (mina_shp0==0) {
  8790.                     !|(8);「ま、いいけどね。」pc
  8791.                 } &else {
  8792.                     !|(8);「まいどあり～。」pc
  8793.                 }
  8794.                 &jmp 黄金の泉
  8795.             }    //本当は、&else.&ifだけど、大変だから。
  8796.             &if (mina_shop==-1) {
  8797.                 !|(8);「おいおい、;お金が足りないぞ。p;
  8798.                 !足りなくたって、;まけないからね。」pc
  8799.                 &jmp @b
  8800.             }
  8801. //            &if (mina_shop==-2) {
  8802.                 !|(8);「|(0)！;持てないのに作っても;
  8803.                 !仕方ないだろ！！」pc
  8804.                 &jmp @b
  8805. //            }
  8806.         } &else {
  8807.             mina_shp0++
  8808.             !|(8);「i(mina_shop)だね、;ちょっとまってね。p;
  8809.             !w・w・w・w・w;ほら、出来たわよ。p;
  8810. //            &partyitemin (mina_shop)
  8811.             ミーナ++
  8812.             !ところで次は、pc
  8813.             &jmp @b
  8814.         }
  8815.     }
  8816.  
  8817.     &if(選択==3){
  8818. &label
  8819.         &if ((mina_say and 1)==0) {            //ミーナの貯金箱
  8820.             mina_say=mina_say or 1
  8821.             !|(8);「ところでさぁ、;余ったお金があったら;
  8822.             !あたしが預かってやるよ。」pc
  8823.             !|(0);「|(7)、どう思う。」pc
  8824.             !|(7);「|(8)さん、;しっかりしてるし。」pc
  8825.             %selectlist = { そうだな,信用できないな }
  8826.             !o(0)|(0);「ん～。
  8827.             &if (%select==0) {
  8828.                 ミーナ+=30
  8829.                 !c|(8);「な、そうだろ、;大丈夫だって。;
  8830.                 !ねこばばなんかしないからさ。」pc
  8831.                 !|(0);「何か怪しいが、;まっ、いいか。」pc
  8832.             } &else {
  8833.                 ミーナ-=20
  8834.                 !c|(8);「あたしって、信用ないんだね。;
  8835.                 !でも、本当に大丈夫だから。」pc
  8836.                 !|(7);「ね、|(0)！」pc
  8837.                 !|(0);「ん、まっ、いいか。」pc
  8838.                 !|(8);「そうこなくっちゃ！」pc
  8839.             }
  8840.         }
  8841. &label
  8842.         !　　　　　|(8)の貯金箱：;
  8843.         &if (ミーナ貯金==0) {
  8844.             !　　　　f(ミーナ貯金)ＧＯＬＤgpc
  8845.         } &else {
  8846.             !　　　　f(ミーナ貯金)０００ＧＯＬＤgpc
  8847.         }
  8848.         !o(0)|(8);「で、お金どうする？」;
  8849.         %selectlist = { 預かってくれ,返してもおうか,いや、いい }
  8850.         &switch %select {
  8851.         &case 0:
  8852.             &jsr いくら？
  8853.             &if (mina_gold==0) {
  8854.                 !|(8);「気が変わったのかい？」pc
  8855.                 &jmp @b
  8856.             }
  8857.             &if ((%gold-mina_gold*1000)<0) {
  8858.                 !|(8);「何だよ、;お金足りないじゃないか！」pc
  8859.                 &jmp @b
  8860.             }
  8861.             &if ((ミーナ貯金+mina_gold)>25000) {
  8862.                 !|(8);「あっ！ごめん、あたし、;そんなに持てないわ。」pc
  8863.                 &jmp @b
  8864.             }
  8865.             ミーナ貯金+=mina_gold
  8866.             %gold-=mina_gold*1000
  8867.             !|(8);「f(mina_gold)０００ＧＯＬＤは、;しっかり預かったよ。」pc
  8868.             &jmp @b
  8869.         &case 1:
  8870.             &jsr いくら？
  8871.             &if (mina_gold==0) {
  8872.                 !|(8);「気が変わったのかい？」pc
  8873.                 &jmp @b
  8874.             }
  8875.             &if ((ミーナ貯金-mina_gold)<0) {
  8876.                 !|(8);「あたしのへそくりでも;出せっていうの。」pc
  8877.                 &jmp @b
  8878.             }
  8879.             &if ((%gold+mina_gold*1000)>25000) {
  8880.                 !|(8);「持てないのに、;欲張っても仕方ないでしょ。」pc
  8881.                 &jmp @b
  8882.             }
  8883.             ミーナ貯金-=mina_gold
  8884.             %gold+=mina_gold*1000
  8885.             !|(8);「ほらよっ、;f(mina_gold)０００ＧＯＬＤ、;
  8886.             !ちゃんと返したからね。」pc
  8887.             &jmp @b
  8888.         &default:
  8889.             !c|(8);「やめるってことだね。」pc
  8890.             &jmp 黄金の泉
  8891.         }
  8892.     }
  8893.     &if (選択==4) {
  8894.  
  8895. &label ワープ            //warp
  8896. //        &jsr 聖なる砂sub
  8897. //        &if (%haveitem(天馬の翼)==0) {
  8898. //            &jmp 黄金の泉
  8899. //        }
  8900.         &ldef warp
  8901.         !|(11);「|(0)！;天馬の翼を使うか？」pc
  8902.         !o(0)|(0)
  8903.         %selectlist = { ああ、頼む,いや、今はいい }
  8904.         &if (%select!=0) {
  8905.             !c|(11);「分かった。」pc
  8906.             &jmp 黄金の泉
  8907.         }
  8908.         !c|(11);「どこへ行くんだ。」pc
  8909.         !o(0)|(0);「そうだな！」p
  8910.         &if (event<=16) {
  8911.             %selectlist = { 城壁前,１Ｆ,７Ｆ,Ｂ２,Ｂ３,Ｂ４ }
  8912.         } &else {
  8913.             &if ((event1 and 16)==0) {
  8914.                 %selectlist = { 城壁前,１Ｆ,７Ｆ,Ｂ２,Ｂ３,Ｂ４,Ｂ６ }
  8915.             } &else {
  8916.                 %selectlist = { 城壁前,１Ｆ,７Ｆ,Ｂ２,Ｂ３,Ｂ４,Ｂ６,大空洞 }
  8917.                 //ほんとは、{ 城壁前,１Ｆ,７Ｆ,Ｂ２,Ｂ３,Ｂ４,Ｂ６,大空洞 }
  8918.                 //の全部選択できることを期待したのですが、７個までしか選択できません。
  8919.             }
  8920.         }
  8921.         warp=%select
  8922.         &if (warp==0) {
  8923.             !c|(11);「城壁前だな！」pc
  8924.             &jsr WARP
  8925.             &goto2 城壁前,@41,2
  8926.         }
  8927.         &if (warp==1) {
  8928.             !c|(11);「城１Ｆだな！」pc
  8929.             &jsr WARP
  8930.             &goto2 城１Ｆ,@41,2
  8931.         }
  8932.         &if (warp==2) {
  8933.             !c|(11);「城７Ｆだな！」pc
  8934.             &jsr WARP
  8935.             &goto2 城７Ｆ,33,29,2
  8936.         }
  8937.         &if (warp==3) {
  8938.             !c|(11);「城Ｂ２だな！」pc
  8939.             &jsr WARP
  8940.             &goto2 城Ｂ２,@41,2
  8941.         }
  8942.         &if (warp==4) {
  8943.             !c|(11);「城Ｂ３だな！」pc
  8944.             &jsr WARP
  8945.             &goto2 城Ｂ３,@41,2
  8946.         }
  8947.         &if (warp==5) {
  8948.             !c|(11);「城Ｂ４だな！」pc
  8949.             &jsr WARP
  8950.             &goto2 城Ｂ４,@41,2
  8951.         }
  8952.         &if (warp==6) {
  8953.             !c|(11);「城Ｂ６だな！」pc
  8954.             &jsr WARP
  8955.             &goto2 城Ｂ６,@41,2
  8956.         }
  8957.         &if (warp==7) {
  8958.             !c|(11);「地下大空洞だな！」pc
  8959.             &jsr WARP
  8960.             &goto2 地下大空洞,@41,2
  8961.         }
  8962.         !c|(11);「やめるのか|(0)。」pc
  8963.         !|(0);「ああ、そうだ。」pc
  8964.     }
  8965.     &jmp 黄金の泉
  8966.  
  8967.  
  8968. &label WARP            //warp subroutine
  8969.     door_sound=2
  8970.     &bgm 0
  8971.     &wait 200
  8972.     &partyspeed 1
  8973.     &partymove 6,8,4,2,6,8,4,2,6,8,4,2,6,8,4,2
  8974.     &partyspeed 2
  8975.     &pcm 7
  8976.     Xsub=15
  8977. &label
  8978.     &contrast Xsub
  8979.     &partymove 6,8,4,2
  8980.     Xsub--
  8981.     &if (Xsub>=0) {
  8982.         &jmp @b
  8983.     }
  8984.     &partymove 6,8,4,2,6,8,4,2,6,8,4,2,6,8,4,2
  8985.     //&partyspeed 1
  8986.     &if (%nowblock==城壁前) {
  8987.         &mappal map\dark.PAL
  8988.     }
  8989.     &if (%nowblock==地下空洞) {
  8990.         &exec bin\bg2swch.x 1
  8991.     }
  8992.     &rts
  8993.  
  8994. &label 聖なる砂sub                //holy sand
  8995.     &if (%haveitem(聖なる砂)==0) {
  8996.         &rts
  8997.     }
  8998.     !o(0)|(0);「聖なる砂を、使ってみるか？
  8999.     %selectlist = { よしっ、使おう,いや、止めておこう }
  9000.     &if (%select==0) {
  9001.         &freash 65535
  9002.         &partyitemout (聖なる砂)
  9003.         noencounter+=1600
  9004.         &if ((eventT and 128)==0) {
  9005.             !c|(0);「ん、本当にこれで大丈夫か。」pc
  9006.             !|(7);「以前とは、ちょっと違うような;気がします。」pc
  9007.             &if (%partyexist(8)!=0) {
  9008.                 !|(8);「あたしには、;全然変わってないように;思えるけどね。」pc
  9009.             }
  9010.             !|(0);「まっ、w;歩いていれば分かるさ。」p
  9011.             eventT=eventT or 128
  9012.         }
  9013.     }
  9014.     !c
  9015.     &rts
  9016.  
  9017. &label いくら？                //how much?
  9018.     !co(0)|(8);「で、いくらにするんだい？」g
  9019.     %selectlist = { １０００,５０００,１００００,２００００ }
  9020.     &switch %select {
  9021.     &case 0:
  9022.         mina_gold=1
  9023.         &break
  9024.     &case 1:
  9025.         mina_gold=5
  9026.         &break
  9027.     &case 2:
  9028.         mina_gold=10
  9029.         &break
  9030.     &case 3:
  9031.         mina_gold=20
  9032.         &break
  9033.     &default:
  9034.         mina_gold=0
  9035.     }
  9036.     !c
  9037.     &rts
  9038.  
  9039.  
  9040. &label garg_shop            //gargoyle's automat
  9041.     &ldef g_shop
  9042.     &if ((event1 and 32)==0) {
  9043.         !|(0);「何だこれ。;文字が書いてある、なになに！」pc
  9044.     }
  9045.     !「ギギギ、wガガガ！p;ガーゴイル自動販売機です。;何が必要ですか。p;
  9046.     !欲しい物のボタンを押して、;必要な金額を入れください。」pc
  9047.     &if ((event1 and 32)==0) {
  9048.         !|(0);「しゃっ、しゃべった！」pc
  9049.         event1=event1 or 32
  9050.     }
  9051.     %shoplist = { ポーション,ハイポーション,エクスポーション,
  9052.     リアリゼーション,ガーゴイルの服 }
  9053. &label
  9054.     g_shop=%shopsel(100)
  9055.     &if (g_shop<=0) {            //&switch バグ回避用
  9056.         &if (g_shop==0) {
  9057.             &jmp @f
  9058.         }
  9059.         &if (g_shop==-1) {
  9060.             !|(0);「お金が足りないな。p;
  9061.             !これは、あきらめよう。」pc
  9062.             &jmp @b
  9063.         }
  9064. //        &if (g_shop==-2) {
  9065.             !|(0);「もう持てないな！;行くか。」pc
  9066.             &jmp @f
  9067. //        }
  9068.     } &else {
  9069. //        &if (%partyexist(8)!=0) {
  9070. //            &if (%rasthaveitem<=8) {
  9071. //                !|(0);「このぐらいにしておこう！」pc
  9072. //                &jmp @f
  9073. //            }
  9074. //        }
  9075.         &if (g_shop==(ガーゴイルの服)) {
  9076.             !「お気に召したでしょうか。」pc
  9077.         } &else {
  9078.             &if ((event1 and 64)==0) {
  9079.                 !|(0);「お金を入れて、;ボタンを押すんだな。」pc
  9080.             }
  9081.             !「i(g_shop)ですね。;少々お待ちください。;
  9082.             &wait 200
  9083.             &pcm 5
  9084.             !どうぞ、お取りください。」pc
  9085.             &if ((event1 and 64)==0) {
  9086.                 !|(0);「大丈夫だろうなこれ。」pc
  9087.                 &if (%partyexist(7)!=0) {
  9088.                     !|(7);「大丈夫そうです。p;ここでは、
  9089.                     !なかなか薬は、;手に入らないですから、;
  9090.                     !使いましょ。」pc
  9091.                     セシル+=10
  9092.                 } &else {
  9093.                     !|(0);「まっ、いいか。」pc
  9094.                 }
  9095.                 event1=event1 or 64
  9096.             }
  9097.         }
  9098.         g_count++
  9099.         &if (g_count==50) {
  9100.             !「ギギギ！;これは、サービスです！
  9101.             !どうぞ、お受け取りください。」pc
  9102.             &if ((event1 and 128)==0) {
  9103.                 !|(0);「なんだ、何にもないじゃないか。」pc
  9104.                 &if ((event1 and 8)!=0) {
  9105.                     !|(11);「高度な魔避けの呪文を;
  9106.                     !掛けてもらったと言うことだ。p;
  9107.                     !しばらくは、;敵に出会わないはずだ。」pc
  9108.                     !|(7);「そうなんですか、;ほんとに助かります。」pc
  9109.                     !|(8);「今の内に、wだね。」pc
  9110.                     !|(0);「そうだな、急ごう！」pc
  9111.                     event1=event1 or 128
  9112.                 }
  9113.             }
  9114.             g_count=1
  9115.             noencounter+=800
  9116.         }
  9117.         &jmp @b
  9118.     }
  9119. &label
  9120.     !「ありがとうございました。」pc
  9121.     &rts
  9122.  
  9123.  
  9124. &label disposeofitem        //前半イベントで、鍵を手に入れる分で、
  9125.                 //アイテムが一杯になるということを、
  9126.                 //忘れていたため、緊急で、アイテムを無断で、
  9127.                 //捨てるようになってしまった。
  9128.                 //ほんとは、書き直せばいいのですが、
  9129.                 //イベントにかかわることで、大変なので。
  9130.                 //たぶん、アイテムを捨てることには、
  9131.                 //ならずに済むとは、思いますが。
  9132.     &if (%rasthaveitem==0) {
  9133.         !|(0);「持ち物がいっぱいだな、p;
  9134.         &if (%haveitem(ポーション)!=0) {
  9135.             &partyitemout (ポーション)
  9136.             !ポーションを捨てるか。」pc
  9137.             &rts
  9138.         }
  9139.         &if (%haveitem(ハイポーション)!=0) {
  9140.             &partyitemout (ハイポーション)
  9141.             !ハイポーションを捨てるか。」pc
  9142.             &rts
  9143.         }
  9144.         &if (%haveitem(エクスポーション)!=0) {
  9145.             &partyitemout (エクスポーション)
  9146.             !エクスポーションを捨てるか。」pc
  9147.             &rts
  9148.         }
  9149.         &if (%haveitem(リアリゼーション)!=0) {
  9150.             &partyitemout (リアリゼーション)
  9151.             !リアリゼーションを捨てるか。」pc
  9152.             &rts
  9153.         }
  9154.         !ＳＪＯＭ;「もしこのエラーが出たら、;申し訳ないです。p;
  9155.         !この状態では、;先に進めないので、;リセットします。p;
  9156.         !ロード後、なにか不必要なものを、捨ててください。」pc
  9157.         &reset
  9158.     }
  9159.     &rts
  9160.  
  9161.  
  9162. &label 宝ゲット            //get a treasure
  9163.     &if ((Tsub and Tbit)==0) {
  9164.         &if (%rasthaveitem!=0) {
  9165.             Tsub=Tsub or Tbit
  9166.             &partyitemin (Tno)
  9167. //            &se 21
  9168.             !　;　　　　j(1)i(Tno)j(0);　　　　を手に入れた。pc
  9169.         } &else {
  9170.             &if (%partyexist(7)==1) {
  9171.                 !|(7);「ねぇ、|(0)、;もう持てないみたいですけど。」pc
  9172.             } &else {
  9173.                 !|(0);「おっと、p;持ち物がいっぱいで、;
  9174.                 !もう持てないな。」pc
  9175.             }
  9176.         }
  9177.     }
  9178.     &rts
  9179.  
  9180. &label OPENDOOR            //open the door
  9181.     &if (%nowbgm==10) {
  9182.         &exec bin\ZMmask.x 9 26 27
  9183.     } &else {
  9184.         &exec bin\ZMmask.x 9
  9185.     }
  9186.     &pcm 3
  9187.     w_speed=10
  9188.     &jsr FADEOUT
  9189.     door_sound=1
  9190.     &rts
  9191.  
  9192. &label DOORCLOSE        //close the door
  9193.     &if (door_sound==1) {
  9194. //        door_sound=0
  9195.         &pcm 4
  9196.         &wait 60
  9197.         &exec bin\ZMmask.x
  9198.     }
  9199.     &rts
  9200.  
  9201.  
  9202.  
  9203. &label タマ            //Tama
  9204.     &if (%rnd(64)==17) {
  9205.         &if (%gold<25000) {
  9206.             &pcm 2
  9207.             %gold+=10
  9208.             &if (%gold>25000) {
  9209.                 %gold=25000
  9210.             }
  9211.         }
  9212.     }
  9213.     &rts
  9214.  
  9215. &label 敵遭遇            //encounter enemies
  9216.     Xsub=%nowbgm
  9217.     &bgm 0
  9218.     &if (%nowblock==(地下空洞)) {
  9219.         &switch (%rnd(4)) {
  9220.         &case 0:
  9221.             mons1=ドラゴン
  9222.             &break
  9223.         &case 1:
  9224.             mons1=mons2
  9225.             &break
  9226.         &case 2:
  9227.             mons1=mons3
  9228.             &break
  9229.         &default:
  9230.             mons1=mons4
  9231.         }
  9232.         &battle 0,11,mons1,1
  9233.     } &else {
  9234.         &switch %rnd(enc_pat) {
  9235.         &case 0:
  9236.             &battle 0,11,mons1,%rnd(hm1)+2
  9237.             &break
  9238.         &case 1:
  9239.             &battle 0,11,mons1,%rnd(hm1)+1,mons2,%rnd(hm2)+1
  9240.             &break
  9241.         &case 2:
  9242.             &battle 0,11,mons1,%rnd(hm1)+1,mons3,hm3,mons2,%rnd(hm2)+1
  9243.             &break
  9244.         &default:
  9245.             &battle 0,11,mons1,%rnd(hm1)+1,mons4,1,mons1,%rnd(hm1)
  9246.         }
  9247.     }
  9248.     &bgm Xsub
  9249.     &jsr gold_Gover
  9250.     noencounter=35
  9251.     &rts
  9252.  
  9253.  
  9254.  
  9255.  
  9256. &label 黒十字            //the black cross
  9257.     &if (%haveitem(黒い十字架)==1) {
  9258.         encounter=encounter*8/10        //出現確率1.25倍
  9259.     }
  9260.     &rts
  9261.  
  9262.  
  9263. &label 宝開閉？            //state of tresure
  9264.     &if ((Tsub and Tbit)==0) {
  9265.         Tno=0
  9266.     } &else {
  9267.         Tno=1
  9268.     }
  9269.     &rts
  9270.  
  9271. &label 消滅            //disappearance
  9272.     &ldef I=50
  9273.     &on
  9274. &label
  9275.     %manpoint(MANsub) = { -1,1 }        //{ Xsub,Ysub }
  9276.     &on
  9277.     &wait I
  9278.     %manpoint(MANsub) = { 767,767 }
  9279.     &on
  9280.     &wait 5
  9281.     I-=5
  9282.     &if (I<0) {
  9283.         I=20
  9284.         &jmp @f
  9285.     }
  9286.     &jmp @b
  9287. &label
  9288.     %manpoint(MANsub) = { -1,1 }        //{ Xsub,Ysub }
  9289.     &on
  9290.     %manpoint(MANsub) = { 767,767 }
  9291.     &on
  9292.     I--
  9293.     &if (I<0) {
  9294.         &rts
  9295.     }
  9296.     &jmp @b
  9297.  
  9298. &label Xmove                //Ｘ座標調整
  9299.     &ldef XX=%px            //座標がなぜかずれるので、対策用
  9300.     &if (XX==Xsub) {
  9301.         &rts
  9302.     }
  9303.     &if (XX>Xsub) {
  9304.         &partymove 4
  9305.         XX--
  9306.         &jmp @b
  9307.     }
  9308.     &partymove 6
  9309.     XX++
  9310.     &jmp @b
  9311.  
  9312. &label Ymove                //Ｙ座標調整
  9313.     &ldef YY=%py
  9314.     &if (YY==Ysub) {
  9315.         &rts
  9316.     }
  9317.     &if (YY>Ysub) {
  9318.         &partymove 8
  9319.         YY--
  9320.         &jmp @b
  9321.     }
  9322.     &partymove 2
  9323.     YY++
  9324.     &jmp @b
  9325.  
  9326.  
  9327.  
  9328. &label gold_Gover            //check game_over and gold_over
  9329.     &if (%exitcode==1) {
  9330. &label GOVER
  9331.         &on
  9332.         &bgm 18
  9333.         w_speed=10
  9334.         &jsr FADEOUT
  9335.         &partyset 1
  9336.         !o(0)　c
  9337.         !o(1)　c
  9338.         &goto2 GAMEOVER,@0,%up
  9339.         //&jmp GOVER
  9340.     }
  9341.     &if ((%gold>25000) or (%gold<0)) {
  9342.         %gold=25000
  9343.     }
  9344.     &rts
  9345.  
  9346. &label mons_reset        //ゲームバランス調整用
  9347.     &if (event<=Xsub) {
  9348.         hm1=2
  9349.         hm2=1
  9350.         hm3=1
  9351.     }
  9352.     &rts
  9353.  
  9354. &label 城sound
  9355.     &if (event<=8) {
  9356.         &if (%nowbgm!=14) {
  9357.             &bgm 14
  9358.         }
  9359.     } &else {
  9360.         &if (%nowbgm!=9) {
  9361.             &bgm 9
  9362.         }
  9363.     }
  9364.     &rts
  9365.  
  9366. &label 鉄格子
  9367.     &ldef I=20
  9368.     &ldef pow=1
  9369. &label
  9370.     %mandef(I) = { 10,0,$8e,2,-1 }
  9371.     &if ((牢屋flag and pow)!=0) {
  9372.         %manpoint(I) = { 767,767 }
  9373.     }
  9374.     pow=pow*2        //シフト命令が欲しい。
  9375.     I++
  9376.     &if (I==26) {
  9377.         &rts
  9378.     }
  9379.     &jmp @b
  9380.  
  9381.  
  9382. &label 牢鍵end?
  9383.     &jsr pcm_unlock
  9384.     &if ((牢屋flag and $3c)==$3c) {
  9385.         !|(0);「しまった、鍵が折れた！」pc
  9386.         !|(8);「なにやってんだい|(0)。」pc
  9387.         !|(0);「折れた物は、仕方ないだろ。」pc
  9388.         !|(8);「そりゃそうだけど。」pc
  9389.         !|(0);「もし、閉まってる牢があったら;こじ開けるまでだ！」pc
  9390.         !|(7);「大丈夫だと思います、;もう全部開けた見たいです。」pc
  9391.         !|(0);「そうか、;生存者はいなかったな。」pc
  9392.         !|(7);「・w・w・w・wええ。」pc
  9393.         !|(8);「・w・w・w・。」pc
  9394.         &partyitemout (牢の鍵)
  9395.         鍵flag=鍵flag or 2048
  9396.     } &else {
  9397.         !|(0);「よし、開いたぞ！」pc
  9398.     }
  9399.     &exec bin\ZMmask.x 9
  9400.     %manpoint(%manno) = { 767,767 }
  9401.     &on
  9402.     &pcm 10
  9403.     &wait 50
  9404.     &exec bin\ZMmask.x
  9405.     &rts
  9406.  
  9407.  
  9408. &label pcm_unlock
  9409.     &if ((%nowbgm!=14) or (%nowbgm!=15)) {
  9410.         &exec bin\ZMmask.x 9
  9411.         &pcm 5
  9412.         &wait 40
  9413.         &exec bin\ZMmask.x
  9414.         &rts
  9415.     }
  9416.     &pcm 5
  9417.     &wait 40
  9418.     &rts
  9419.  
  9420. &label pcm_treasure
  9421.     &if ((%nowbgm!=14) or (%nowbgm!=15)) {
  9422.         &exec bin\ZMmask.x 9
  9423.         &pcm 6
  9424.         &wait 150
  9425.         &exec bin\ZMmask.x
  9426.         &rts
  9427.     }
  9428.     &pcm 6
  9429.     &wait 150
  9430.     &rts
  9431.  
  9432.  
  9433. &label Pset
  9434.     &if ((event1 and 8)==0) {        //%partyexist(11)==0
  9435.         &partyset 0,7,8
  9436.     } &else {
  9437.         &partyset 0,7,8,11
  9438.     }
  9439.     &on
  9440.     &rts
  9441.  
  9442. &label move_fadeout
  9443.     Xsub=15
  9444. &label
  9445.     &contrast Xsub
  9446.     &partymove 2
  9447.     Xsub--
  9448.     &if (Xsub>=0) {
  9449.         &jmp @b
  9450.     }
  9451.     &rts
  9452.  
  9453.                                     
  9454. [GAMEOVER]            //ゲームオーバー
  9455.                                     
  9456.     &map map\GAMEOVER.MAP
  9457.     &sppsp chara\charact.SPP
  9458.     &exec bin\bg2swch.x 1
  9459.     &partyspeed 2
  9460.     &on
  9461.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  9462.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  9463.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  9464.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  9465.     &partymove 8,8,8,8,8,8,8,8,8,8
  9466.     //&partyspeed 1
  9467.     %selectlist = { リセット,データロード }
  9468.     !o(0)　　　　　　ゲームオーバーです。:　　　　　　　　どうしますか？p
  9469. &label
  9470.     &switch %select {
  9471.     &case 0:
  9472.         !cリセットします。ww
  9473.         &break        //&reset
  9474.     &case 1:
  9475.         !cデータロードします。pc
  9476.         &bgm -1
  9477.         &load
  9478.         &break
  9479.     &default:
  9480.         !co(0)どちらか選択してください。p
  9481.         &jmp @b
  9482.     }
  9483.  
  9484.             //すぐに、ボタンを押さずに、歩き回ってみてください。
  9485.  
  9486. #@0
  9487.     &if (%direc<0) {
  9488.         &&
  9489.     }
  9490.     !c
  9491.     &bgm -1
  9492.     &reset
  9493.  
  9494. #@1
  9495.     &link @0
  9496.  
  9497.  
  9498. [END]
  9499.     &map map\black.MAP
  9500.     &partyset 1
  9501.     %partypoint = { 0,0,2 }
  9502.     &on
  9503.     &contrast 0
  9504.     &wait 200
  9505.     &monsprint 80,90,ロゴ
  9506.     Xsub=0
  9507. &label
  9508.     &contrast Xsub
  9509.     Xsub++
  9510.     &wait 20
  9511.     &if (Xsub<=15) {
  9512.         &jmp @b
  9513.     }
  9514.     &wait 400
  9515.     !o(1):　　　　　　　　ＴＨＥ　　ＥＮＤp
  9516.     w_speed=20
  9517.     &jsr FADEOUT
  9518.     &wait 500
  9519.     !c
  9520.     &end
  9521.